Changeset 12791 for trunk/source/level-1


Ignore:
Timestamp:
Sep 9, 2009, 12:50:21 AM (10 years ago)
Author:
rme
Message:

New condition write-to-watched-object.

File:
1 edited

Legend:

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

    r12481 r12791  
    103103             (format s "Invalid memory operation."))))
    104104
     105(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)))))
    105110
    106111(define-condition type-error (error)
Note: See TracChangeset for help on using the changeset viewer.