X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fsymbol.lisp;h=2ba65581e01e002b46f071e5eaf3f9c64073f5f9;hb=b8f63d9b4e978bec3bfc1f4fc471e5ed946781fd;hp=5bf53d85b54ce7c4f88e2f1a467a2e912c4fb6b2;hpb=95a6db7329b91dd90d165dd4057b9b5098d34aa2;p=sbcl.git

diff --git a/src/code/symbol.lisp b/src/code/symbol.lisp
index 5bf53d8..2ba6558 100644
--- a/src/code/symbol.lisp
+++ b/src/code/symbol.lisp
@@ -238,9 +238,9 @@
 (defvar *gentemp-counter* 0)
 (declaim (type unsigned-byte *gentemp-counter*))
 
-(defun gentemp (&optional (prefix "T") (package *package*))
+(defun gentemp (&optional (prefix "T") (package (sane-package)))
   #!+sb-doc
-  "Creates a new symbol interned in package Package with the given Prefix."
+  "Creates a new symbol interned in package PACKAGE with the given PREFIX."
   (declare (type string prefix))
   (loop
     (let ((*print-base* 10)