Ignore:
Timestamp:
Apr 9, 2009, 10:16:42 PM (11 years ago)
Author:
rme
Message:

Merge trunk changes r11863 through r11898.

File:
1 edited

Legend:

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

    r11856 r11927  
    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)
     
    11941201    (simple-array double-float (* * *))
    11951202    (simple-array char (* * *))
    1196    
     1203
     1204    (vector t)
     1205    bit-vector
     1206    (vector (signed-byte 8))
     1207    (vector (unsigned-byte 8))
     1208    (vector (signed-byte 16))
     1209    (vector (unsigned-byte 16))
     1210    (vector (signed-byte 32))
     1211    (vector (unsigned-byte 32))
     1212    (vector (signed-byte 64))
     1213    (vector (unsigned-byte 64))
     1214    (vector fixnum)
     1215    (vector single-float)
     1216    (vector double-float)
     1217
    11971218    ))
    11981219
Note: See TracChangeset for help on using the changeset viewer.