Export NUMBER and RATIONAL.

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))