aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--petty-types.lisp7
1 files changed, 5 insertions, 2 deletions
diff --git a/petty-types.lisp b/petty-types.lisp
index a45e898..9f98e78 100644
--- a/petty-types.lisp
+++ b/petty-types.lisp
@@ -20,7 +20,8 @@
(check-type cont symbol "A SYMBOL")
(assert (or (eq len '*) (typep len 'fixnum)) (len) "LEN must be '* or a fixnum")
(let ((name
- (apply #'a:symbolicate cont :-of- (write-to-string len) :- (a:flatten type)))
+ (let ((*package* #.(find-package :petty-types)))
+ (apply #'a:symbolicate cont :-of- (write-to-string len) :- (a:flatten type))))
(len
(when (typep len 'fixnum)
len)))
@@ -41,7 +42,9 @@ member is the NTH member of TYPES."
"At least one member of ~s is not a type specifier"
types)
(let ((name
- (apply #'a:symbolicate :tuple- (mapcar #'write-to-string (a:flatten types)))))
+ (let ((*package* #.(find-package :petty-types)))
+ (apply #'a:symbolicate :tuple-
+ (mapcar #'write-to-string (a:flatten types))))))
(prog1 name
(unless (fboundp name)
(setf (symbol-function name)