Changeset 3896
 Timestamp:
 09/19/03 15:14:56 (19 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/j/src/org/armedbear/lisp/subtypep.lisp
r3790 r3896 2 2 ;;; 3 3 ;;; Copyright (C) 2003 Peter Graves 4 ;;; $Id: subtypep.lisp,v 1. 8 20030915 05:00:42piso Exp $4 ;;; $Id: subtypep.lisp,v 1.9 20030919 15:14:56 piso Exp $ 5 5 ;;; 6 6 ;;; This program is free software; you can redistribute it and/or … … 24 24 (defparameter *knowntypes* (makehashtable)) 25 25 26 (dolist (i '((ARRAY) 26 (dolist (i '((ARITHMETICERROR ERROR) 27 (ARRAY) 27 28 (BASESTRING SIMPLESTRING) 28 29 (BIGNUM INTEGER) … … 31 32 (BOOLEAN SYMBOL) 32 33 (BUILTINCLASS STANDARDCLASS) 34 (CELLERROR ERROR) 33 35 (CHARACTER) 34 36 (CLASS STANDARDOBJECT) … … 37 39 (CONDITION) 38 40 (CONS LIST) 41 (CONTROLERROR ERROR) 42 (DIVISIONBYZERO ARITHMETICERROR) 43 (ENDOFFILE STREAMERROR) 44 (ERROR SERIOUSCONDITION) 39 45 (EXTENDEDCHAR CHARACTER NIL) 46 (FILEERROR ERROR) 40 47 (FIXNUM INTEGER) 41 48 (FLOAT REAL) 49 (FLOATINGPOINTINEXACT ARITHMETICERROR) 50 (FLOATINGPOINTINVALIDOPERATION ARITHMETICERROR) 51 (FLOATINGPOINTOVERFLOW ARITHMETICERROR) 52 (FLOATINGPOINTUNDERFLOW ARITHMETICERROR) 42 53 (FUNCTION) 43 54 (GENERICFUNCTION FUNCTION) … … 50 61 (PACKAGE) 51 62 (PACKAGEERROR ERROR) 63 (PARSEERROR ERROR) 52 64 (PATHNAME) 65 (PRINTNOTREADABLE ERROR) 53 66 (PROGRAMERROR ERROR) 54 67 (RANDOMSTATE) 55 68 (RATIO RATIONAL) 56 69 (RATIONAL REAL) 70 (READERERROR PARSEERROR STREAMERROR) 57 71 (READTABLE) 58 72 (REAL NUMBER) … … 62 76 (SIMPLEBASESTRING SIMPLESTRING BASESTRING) 63 77 (SIMPLEBITVECTOR BITVECTOR SIMPLEARRAY) 78 (SIMPLECONDITION CONDITION) 79 (SIMPLEERROR SIMPLECONDITION ERROR) 64 80 (SIMPLESTRING STRING SIMPLEARRAY) 81 (SIMPLETYPEERROR SIMPLECONDITION TYPEERROR) 65 82 (SIMPLEVECTOR VECTOR SIMPLEARRAY) 83 (SIMPLEWARNING SIMPLECONDITION WARNING) 66 84 (STANDARDCHAR CHARACTER) 67 85 (STANDARDCLASS CLASS) 68 86 (STANDARDGENERICFUNCTION GENERICFUNCTION) 69 87 (STANDARDOBJECT) 88 (STORAGECONDITION SERIOUSCONDITION) 70 89 (STREAM) 90 (STREAMERROR ERROR) 71 91 (STRING VECTOR) 72 92 (STRUCTURECLASS CLASS STANDARDOBJECT) 93 (STYLEWARNING WARNING) 73 94 (SYMBOL) 74 95 (TWOWAYSTREAM STREAM) 75 96 (TYPEERROR ERROR) 97 (UNBOUNDSLOT CELLERROR) 98 (UNBOUNDVARIABLE CELLERROR) 99 (UNDEFINEDFUNCTION CELLERROR) 76 100 (VECTOR ARRAY SEQUENCE) 101 (WARNING CONDITION) 77 102 )) 78 103 (setf (gethash (car i) *knowntypes*) (cdr i)))
Note: See TracChangeset
for help on using the changeset viewer.