Changeset 6269


Ignore:
Timestamp:
Apr 16, 2007, 6:36:59 AM (15 years ago)
Author:
gb
Message:

INVALID-MEMORY-ACCESS condition.

File:
1 edited

Legend:

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

    r5529 r6269  
    8282(define-condition stack-overflow-condition (simple-storage-condition))
    8383
     84(define-condition invalid-memory-access (storage-condition)
     85  ((address :initarg :address)
     86   (write-p :initform nil :initarg :write-p))
     87  (:report (lambda (c s)
     88             (with-slots (address write-p) c
     89               (format s "Illegal memory ~a address #x~x" (if write-p "write to" "read of") address)))))
     90 
    8491(define-condition type-error (error)
    8592  ((datum :initarg :datum)
Note: See TracChangeset for help on using the changeset viewer.