Changeset 12791

Timestamp:

Sep 8, 2009, 5:50:21 PM (15 years ago)

Author:

R. Matthew Emerson

Message:

New condition write-to-watched-object.

File:

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

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

@@ -103 +103 @@
              (format s "Invalid memory operation."))))
 
+(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)))))
 
 (define-condition type-error (error)