X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Freader.lisp;h=d4abe789389c09f2dcb5b36fce92e06fe7d8ccec;hb=d4bc11580fa8bce443d57d44b41fd3c342e1e412;hp=f37d54fdd6ebf112c8f66bab93e383b5e7e5f8c4;hpb=95a6db7329b91dd90d165dd4057b9b5098d34aa2;p=sbcl.git

diff --git a/src/code/reader.lisp b/src/code/reader.lisp
index f37d54f..d4abe78 100644
--- a/src/code/reader.lisp
+++ b/src/code/reader.lisp
@@ -993,7 +993,7 @@
       (casify-read-buffer escapes)
       (let ((found (if package-designator
 		       (find-package package-designator)
-		       *package*)))
+		       (sane-package))))
 	(unless found
 	  (error 'reader-package-error :stream stream
 		 :format-arguments (list package-designator)