[Openmcl-cvs-notifications] r13012 - /trunk/source/level-1/l1-error-system.lisp

[rme at clozure.com]

Author: rme
Date: Tue Oct 13 23:51:38 2009
New Revision: 13012

Log:
Add a reader for the instruction slot in a write-to-watched-object
condition.

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

Modified: trunk/source/level-1/l1-error-system.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-error-system.lisp (original)
+++ trunk/source/level-1/l1-error-system.lisp Tue Oct 13 23:51:38 2009
@@ -108,7 +108,8 @@
 	   :reader write-to-watched-object-object)
    (offset :initarg :offset
 	   :reader write-to-watched-object-offset)
-   (instruction :initarg :instruction))
+   (instruction :initarg :instruction
+		:reader write-to-watched-object-instruction))
   (:report report-write-to-watched-object))
 =

 (defun report-write-to-watched-object (c s)