From 67c04fac95bf203d93d6949deae2e7cf46e7fe47 Mon Sep 17 00:00:00 2001
From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Mon, 7 Jul 2008 12:50:26 +0300
Subject: [PATCH] explicitly export the CDR5 types from DEFPACKAGE

---
 package.lisp | 75 +++++++++++++++++++++++++++++++++++++++++++++++++++-
 types.lisp   |  5 +---
 2 files changed, 75 insertions(+), 5 deletions(-)

diff --git a/package.lisp b/package.lisp
index 9379d32..eefa4b4 100644
--- a/package.lisp
+++ b/package.lisp
@@ -126,9 +126,82 @@
    ;; Strings
    #:string-designator
    ;; Types
+   #:negative-double-float
+   #:negative-fixnum-p
+   #:negative-float
+   #:negative-float-p
+   #:negative-long-float
+   #:negative-long-float-p
+   #:negative-rational 
+   #:negative-rational-p
+   #:negative-real
+   #:negative-single-float-p
+   #:non-negative-double-float
+   #:non-negative-double-float-p
+   #:non-negative-fixnum
+   #:non-negative-fixnum-p
+   #:non-negative-float
+   #:non-negative-float-p
+   #:non-negative-integer-p
+   #:non-negative-long-float
+   #:non-negative-rational
+   #:non-negative-real-p
+   #:non-negative-short-float-p
+   #:non-negative-single-float
+   #:non-negative-single-float-p
+   #:non-positive-double-float
+   #:non-positive-double-float-p
+   #:non-positive-fixnum
+   #:non-positive-fixnum-p
+   #:non-positive-float
+   #:non-positive-float-p
+   #:non-positive-integer
+   #:non-positive-rational
+   #:non-positive-real
+   #:non-positive-real-p
+   #:non-positive-short-float
+   #:non-positive-short-float-p
+   #:non-positive-single-float-p
+   #:ordinary-lambda-list-keywords
+   #:positive-double-float
+   #:positive-double-float-p
+   #:positive-fixnum
+   #:positive-fixnum-p
+   #:positive-float
+   #:positive-float-p
+   #:positive-integer
+   #:positive-rational
+   #:positive-real
+   #:positive-real-p
+   #:positive-short-float
+   #:positive-short-float-p
+   #:positive-single-float
+   #:positive-single-float-p
+   #:coercef
+   #:negative-double-float-p
+   #:negative-fixnum
+   #:negative-integer
+   #:negative-integer-p
+   #:negative-real-p
+   #:negative-short-float
+   #:negative-short-float-p
+   #:negative-single-float
+   #:non-negative-integer
+   #:non-negative-long-float-p
+   #:non-negative-rational-p
+   #:non-negative-real
+   #:non-negative-short-float
+   #:non-positive-integer-p
+   #:non-positive-long-float
+   #:non-positive-long-float-p
+   #:non-positive-rational-p
+   #:non-positive-single-float
    #:of-type
+   #:positive-integer-p
+   #:positive-long-float
+   #:positive-long-float-p
+   #:positive-rational-p
    #:type=
-   #:coercef
    ;; Conditions
    #:required-argument
    #:ignore-some-conditions
diff --git a/types.lisp b/types.lisp
index 52332fe..dd354f3 100644
--- a/types.lisp
+++ b/types.lisp
@@ -92,10 +92,7 @@ ARRAY-DIMENSION-LIMIT."
 
                 (defun ,positive-p-name (n)
                   (and (typep n ',type)
-                       (< ,zero n)))
-
-                (export ',subtype-names :alexandria)
-                (export ',predicate-names :alexandria)))))))
+                       (< ,zero n)))))))))
   (frob fixnum integer)
   (frob integer)
   (frob rational)
-- 
GitLab