Changeset 3896

Timestamp:

09/19/03 15:14:56 (19 years ago)

Author:

piso

Message:

Conditions.

File:

• trunk/j/src/org/armedbear/lisp/subtypep.lisp (modified) (6 diffs)

trunk/j/src/org/armedbear/lisp/subtypep.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: subtypep.lisp,v 1.8 2003-09-15 05:00:42 piso Exp $
+;;; $Id: subtypep.lisp,v 1.9 2003-09-19 15:14:56 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -24 +24 @@
 (defparameter *known-types* (make-hash-table))
 
-(dolist (i '((ARRAY)
+(dolist (i '((ARITHMETIC-ERROR ERROR)
+             (ARRAY)
              (BASE-STRING SIMPLE-STRING)
              (BIGNUM INTEGER)
@@ -31 +32 @@
              (BOOLEAN SYMBOL)
              (BUILT-IN-CLASS STANDARD-CLASS)
+             (CELL-ERROR ERROR)
              (CHARACTER)
              (CLASS STANDARD-OBJECT)
@@ -37 +39 @@
              (CONDITION)
              (CONS LIST)
+             (CONTROL-ERROR ERROR)
+             (DIVISION-BY-ZERO ARITHMETIC-ERROR)
+             (END-OF-FILE STREAM-ERROR)
+             (ERROR SERIOUS-CONDITION)
              (EXTENDED-CHAR CHARACTER NIL)
+             (FILE-ERROR ERROR)
              (FIXNUM INTEGER)
              (FLOAT REAL)
+             (FLOATING-POINT-INEXACT ARITHMETIC-ERROR)
+             (FLOATING-POINT-INVALID-OPERATION ARITHMETIC-ERROR)
+             (FLOATING-POINT-OVERFLOW ARITHMETIC-ERROR)
+             (FLOATING-POINT-UNDERFLOW ARITHMETIC-ERROR)
              (FUNCTION)
              (GENERIC-FUNCTION FUNCTION)
@@ -50 +61 @@
              (PACKAGE)
              (PACKAGE-ERROR ERROR)
+             (PARSE-ERROR ERROR)
              (PATHNAME)
+             (PRINT-NOT-READABLE ERROR)
              (PROGRAM-ERROR ERROR)
              (RANDOM-STATE)
              (RATIO RATIONAL)
              (RATIONAL REAL)
+             (READER-ERROR PARSE-ERROR STREAM-ERROR)
              (READTABLE)
              (REAL NUMBER)
@@ -62 +76 @@
              (SIMPLE-BASE-STRING SIMPLE-STRING BASE-STRING)
              (SIMPLE-BIT-VECTOR BIT-VECTOR SIMPLE-ARRAY)
+             (SIMPLE-CONDITION CONDITION)
+             (SIMPLE-ERROR SIMPLE-CONDITION ERROR)
              (SIMPLE-STRING STRING SIMPLE-ARRAY)
+             (SIMPLE-TYPE-ERROR SIMPLE-CONDITION TYPE-ERROR)
              (SIMPLE-VECTOR VECTOR SIMPLE-ARRAY)
+             (SIMPLE-WARNING SIMPLE-CONDITION WARNING)
              (STANDARD-CHAR CHARACTER)
              (STANDARD-CLASS CLASS)
              (STANDARD-GENERIC-FUNCTION GENERIC-FUNCTION)
              (STANDARD-OBJECT)
+             (STORAGE-CONDITION SERIOUS-CONDITION)
              (STREAM)
+             (STREAM-ERROR ERROR)
              (STRING VECTOR)
              (STRUCTURE-CLASS CLASS STANDARD-OBJECT)
+             (STYLE-WARNING WARNING)
              (SYMBOL)
              (TWO-WAY-STREAM STREAM)
              (TYPE-ERROR ERROR)
+             (UNBOUND-SLOT CELL-ERROR)
+             (UNBOUND-VARIABLE CELL-ERROR)
+             (UNDEFINED-FUNCTION CELL-ERROR)
              (VECTOR ARRAY SEQUENCE)
+             (WARNING CONDITION)
              ))
   (setf (gethash (car i) *known-types*) (cdr i)))