From 78f516d6fb58405cb234ba22e8bebd44d4d2bdf1 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Wed, 30 Jul 2008 11:35:51 +0200 Subject: Export NUMBER and RATIONAL. --- types.lisp | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) (limited to 'types.lisp') 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)) -- cgit v1.2.3