Changeset 12819

Timestamp:

Sep 11, 2009, 1:33:15 PM (15 years ago)

Author:

R. Matthew Emerson

Message:

Add address slot to write-to-watched-object condition.

File:

• trunk/source/level-1/l1-error-system.lisp (modified) (1 diff)

trunk/source/level-1/l1-error-system.lisp

@@ -104 +104 @@
 
 (define-condition write-to-watched-object (storage-condition)
-  ((object :initform nil :initarg :object))
-  (:report (lambda (c s)
-             (with-slots (object) c
-               (format s "Write to watched object ~s." object)))))
+  ((address :initarg :address)
+   (object :initform nil :initarg :object))
+  (:report (lambda (c s)
+             (with-slots (object address) c
+               (format s "Write to watched object ~s at ~s." object address)))))
 
 (define-condition type-error (error)