summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <matthias@benkard.de>2008-07-30 11:35:51 +0200
committerMatthias Andreas Benkard <matthias@benkard.de>2008-07-30 11:35:51 +0200
commit78f516d6fb58405cb234ba22e8bebd44d4d2bdf1 (patch)
tree3944837713004b7ac1f211670d62740b9bb8f301
parent0a8a75505fd20456f91d91c81e677893c84bfd2d (diff)
Export NUMBER and RATIONAL.
-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))