summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--types.lisp15
1 files changed, 7 insertions, 8 deletions
diff --git a/types.lisp b/types.lisp
index 267e34a..917e9f4 100644
--- a/types.lisp
+++ b/types.lisp
@@ -1,15 +1,14 @@
(export '(most-positive-fixnum most-negative-fixnum type-of typep
subtypep and or not satisfies symbol fixnum bignum real
- complex float integer ratio short-float long-float
- single-float double-float null symbol list cons standard-char
- base-char extended-char string vector bit-vector array
- simple-array simple-vector simple-string simple-bit-vector
- sequence two-way-stream stream echo-stream broadcast-stream
- file-stream synonym-stream string-stream concatenated-stream))
+ complex float integer ratio rational number short-float
+ long-float single-float double-float null symbol list cons
+ standard-char base-char extended-char string vector bit-vector
+ array simple-array simple-vector simple-string
+ simple-bit-vector sequence two-way-stream stream echo-stream
+ broadcast-stream file-stream synonym-stream string-stream
+ concatenated-stream))
-;(defvar *type-table*)
-
(setq *subtype-supertypes-dict*
(let ((relationship-alist
'((base-char . (character))