Changeset 11886 for trunk/source/level-1


Ignore:
Timestamp:
Apr 4, 2009, 9:27:40 AM (11 years ago)
Author:
gb
Message:

INVALID-MEMORY-OPERATION, for generic memory faults.

File:
1 edited

Legend:

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

    r11869 r11886  
    9191             (with-slots (address write-p) c
    9292               (format s "Fault during ~a memory address #x~x" (if write-p "write to" "read of") address)))))
    93  
     93
     94(define-condition invalid-memory-operation (storage-condition)
     95  ()
     96  (:report (lambda (c s)
     97             (declare (ignore c))
     98             (format s "Invalid memory operation."))))
     99
     100
    94101(define-condition type-error (error)
    95102  ((datum :initarg :datum)
Note: See TracChangeset for help on using the changeset viewer.