Skip to content
Snippets Groups Projects
Commit 67c04fac authored by Nikodemus Siivola's avatar Nikodemus Siivola
Browse files

explicitly export the CDR5 types from DEFPACKAGE

parent 8244d894
No related branches found
No related tags found
No related merge requests found
...@@ -126,9 +126,82 @@ ...@@ -126,9 +126,82 @@
;; Strings ;; Strings
#:string-designator #:string-designator
;; Types ;; 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 #:of-type
#:positive-integer-p
#:positive-long-float
#:positive-long-float-p
#:positive-rational-p
#:type= #:type=
#:coercef
;; Conditions ;; Conditions
#:required-argument #:required-argument
#:ignore-some-conditions #:ignore-some-conditions
......
...@@ -92,10 +92,7 @@ ARRAY-DIMENSION-LIMIT." ...@@ -92,10 +92,7 @@ ARRAY-DIMENSION-LIMIT."
(defun ,positive-p-name (n) (defun ,positive-p-name (n)
(and (typep n ',type) (and (typep n ',type)
(< ,zero n))) (< ,zero n)))))))))
(export ',subtype-names :alexandria)
(export ',predicate-names :alexandria)))))))
(frob fixnum integer) (frob fixnum integer)
(frob integer) (frob integer)
(frob rational) (frob rational)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment