Changeset 12819


Ignore:
Timestamp:
Sep 11, 2009, 8:33:15 PM (10 years ago)
Author:
rme
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-error-system.lisp

    r12791 r12819  
    104104
    105105(define-condition write-to-watched-object (storage-condition)
    106   ((object :initform nil :initarg :object))
    107   (:report (lambda (c s)
    108              (with-slots (object) c
    109                (format s "Write to watched object ~s." object)))))
     106  ((address :initarg :address)
     107   (object :initform nil :initarg :object))
     108  (:report (lambda (c s)
     109             (with-slots (object address) c
     110               (format s "Write to watched object ~s at ~s." object address)))))
    110111
    111112(define-condition type-error (error)
Note: See TracChangeset for help on using the changeset viewer.