diff options
| -rw-r--r-- | types.lisp | 15 |
1 files changed, 7 insertions, 8 deletions
@@ -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)) |