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