X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fgeneric%2Fgenesis.lisp;h=5f91e0ee8248ce61123334c8a20806c02754460d;hb=77869604fc3eb4417a630651e5fe40e74342ee59;hp=9bfeeaa1791f3a88bd56a6090f2533118679f203;hpb=02c9007b4ca5753406f60019f4fe5e5f8392541a;p=sbcl.git

diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp
index 9bfeeaa..5f91e0e 100644
--- a/src/compiler/generic/genesis.lisp
+++ b/src/compiler/generic/genesis.lisp
@@ -2021,7 +2021,7 @@
 (defun cold-load-symbol (size package)
   (let ((string (make-string size)))
     (read-string-as-bytes *fasl-input-stream* string)
-    (cold-intern (intern string package) package)))
+    (cold-intern (intern string package))))
 
 (macrolet ((frob (name pname-len package-len)
 	     `(define-cold-fop (,name)