Changeset 3896


Ignore:
Timestamp:
09/19/03 15:14:56 (19 years ago)
Author:
piso
Message:

Conditions.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/subtypep.lisp

    r3790 r3896  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: subtypep.lisp,v 1.8 2003-09-15 05:00:42 piso Exp $
     4;;; $Id: subtypep.lisp,v 1.9 2003-09-19 15:14:56 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2424(defparameter *known-types* (make-hash-table))
    2525
    26 (dolist (i '((ARRAY)
     26(dolist (i '((ARITHMETIC-ERROR ERROR)
     27             (ARRAY)
    2728             (BASE-STRING SIMPLE-STRING)
    2829             (BIGNUM INTEGER)
     
    3132             (BOOLEAN SYMBOL)
    3233             (BUILT-IN-CLASS STANDARD-CLASS)
     34             (CELL-ERROR ERROR)
    3335             (CHARACTER)
    3436             (CLASS STANDARD-OBJECT)
     
    3739             (CONDITION)
    3840             (CONS LIST)
     41             (CONTROL-ERROR ERROR)
     42             (DIVISION-BY-ZERO ARITHMETIC-ERROR)
     43             (END-OF-FILE STREAM-ERROR)
     44             (ERROR SERIOUS-CONDITION)
    3945             (EXTENDED-CHAR CHARACTER NIL)
     46             (FILE-ERROR ERROR)
    4047             (FIXNUM INTEGER)
    4148             (FLOAT REAL)
     49             (FLOATING-POINT-INEXACT ARITHMETIC-ERROR)
     50             (FLOATING-POINT-INVALID-OPERATION ARITHMETIC-ERROR)
     51             (FLOATING-POINT-OVERFLOW ARITHMETIC-ERROR)
     52             (FLOATING-POINT-UNDERFLOW ARITHMETIC-ERROR)
    4253             (FUNCTION)
    4354             (GENERIC-FUNCTION FUNCTION)
     
    5061             (PACKAGE)
    5162             (PACKAGE-ERROR ERROR)
     63             (PARSE-ERROR ERROR)
    5264             (PATHNAME)
     65             (PRINT-NOT-READABLE ERROR)
    5366             (PROGRAM-ERROR ERROR)
    5467             (RANDOM-STATE)
    5568             (RATIO RATIONAL)
    5669             (RATIONAL REAL)
     70             (READER-ERROR PARSE-ERROR STREAM-ERROR)
    5771             (READTABLE)
    5872             (REAL NUMBER)
     
    6276             (SIMPLE-BASE-STRING SIMPLE-STRING BASE-STRING)
    6377             (SIMPLE-BIT-VECTOR BIT-VECTOR SIMPLE-ARRAY)
     78             (SIMPLE-CONDITION CONDITION)
     79             (SIMPLE-ERROR SIMPLE-CONDITION ERROR)
    6480             (SIMPLE-STRING STRING SIMPLE-ARRAY)
     81             (SIMPLE-TYPE-ERROR SIMPLE-CONDITION TYPE-ERROR)
    6582             (SIMPLE-VECTOR VECTOR SIMPLE-ARRAY)
     83             (SIMPLE-WARNING SIMPLE-CONDITION WARNING)
    6684             (STANDARD-CHAR CHARACTER)
    6785             (STANDARD-CLASS CLASS)
    6886             (STANDARD-GENERIC-FUNCTION GENERIC-FUNCTION)
    6987             (STANDARD-OBJECT)
     88             (STORAGE-CONDITION SERIOUS-CONDITION)
    7089             (STREAM)
     90             (STREAM-ERROR ERROR)
    7191             (STRING VECTOR)
    7292             (STRUCTURE-CLASS CLASS STANDARD-OBJECT)
     93             (STYLE-WARNING WARNING)
    7394             (SYMBOL)
    7495             (TWO-WAY-STREAM STREAM)
    7596             (TYPE-ERROR ERROR)
     97             (UNBOUND-SLOT CELL-ERROR)
     98             (UNBOUND-VARIABLE CELL-ERROR)
     99             (UNDEFINED-FUNCTION CELL-ERROR)
    76100             (VECTOR ARRAY SEQUENCE)
     101             (WARNING CONDITION)
    77102             ))
    78103  (setf (gethash (car i) *known-types*) (cdr i)))
Note: See TracChangeset for help on using the changeset viewer.