X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-load.lisp;h=560ba0e0bb451465e8baa3394b5ba818f558dc80;hb=f1acc17f83cdfa9454a53bd0ee9bd0e9b9482817;hp=2e687c5c25858e0a226cc6595ef0669b64efcef1;hpb=126e0a851c7e170b13c206c530083fc48572ea60;p=sbcl.git

diff --git a/src/code/target-load.lisp b/src/code/target-load.lisp
index 2e687c5..560ba0e 100644
--- a/src/code/target-load.lisp
+++ b/src/code/target-load.lisp
@@ -165,7 +165,7 @@
   #!+sb-doc
   "Load the file given by FILESPEC into the Lisp environment, returning
    T on success."
-
+  (declare (ignore external-format))
   (let ((*load-depth* (1+ *load-depth*))
 	;; KLUDGE: I can't find in the ANSI spec where it says that
 	;; DECLAIM/PROCLAIM of optimization policy should have file
@@ -261,7 +261,7 @@
 		      tto)
               (format t "   loading to the dynamic space~%"))
 
-	(let ((code (%primitive sb!c:allocate-dynamic-code-object
+	(let ((code (%primitive sb!c:allocate-code-object
                                 box-num
                                 code-length))
 	      (index (+ sb!vm:code-trace-table-offset-slot box-num)))