Changeset 6269

Timestamp:

Apr 15, 2007, 11:36:59 PM (18 years ago)

Author:

Gary Byers

Message:

INVALID-MEMORY-ACCESS condition.

File:

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

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

@@ -82 +82 @@
 (define-condition stack-overflow-condition (simple-storage-condition))
 
+(define-condition invalid-memory-access (storage-condition)
+  ((address :initarg :address)
+   (write-p :initform nil :initarg :write-p))
+  (:report (lambda (c s)
+             (with-slots (address write-p) c
+               (format s "Illegal memory ~a address #x~x" (if write-p "write to" "read of") address)))))
+  
 (define-condition type-error (error)
   ((datum :initarg :datum)