atom-errors.lsp 679 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
(setf x
  (loop
    for tp in '(CONDITION
SERIOUS-CONDITION
ERROR
TYPE-ERROR
SIMPLE-TYPE-ERROR
SIMPLE-CONDITION
PARSE-ERROR
CELL-ERROR
UNBOUND-SLOT
WARNING
STYLE-WARNING
STORAGE-CONDITION
SIMPLE-WARNING
UNBOUND-VARIABLE
CONTROL-ERROR
PROGRAM-ERROR
UNDEFINED-FUNCTION
PACKAGE-ERROR
ARITHMETIC-ERROR
DIVISION-BY-ZERO
FLOATING-POINT-INVALID-OPERATION
FLOATING-POINT-INEXACT
FLOATING-POINT-OVERFLOW
FLOATING-POINT-UNDERFLOW
FILE-ERROR
BROADCAST-STREAM
CONCATENATED-STREAM
ECHO-STREAM
FILE-STREAM
STRING-STREAM
SYNONYM-STREAM
TWO-WAY-STREAM
STREAM-ERROR
END-OF-FILE
PRINT-NOT-READABLE
sds's avatar
sds committed
38
                READER-ERROR)
39
      collect (list tp (multiple-value-list (subtypep* tp 'atom)))))