diff options
| -rw-r--r-- | petty-types.lisp | 7 |
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) |