Changeset 13012

Timestamp:

Oct 13, 2009, 8:51:38 PM (15 years ago)

Author:

R. Matthew Emerson

Message:

Add a reader for the instruction slot in a 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

@@ -109 +109 @@
    (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))