0.8.9.18

[sbcl.git] / src / code / target-load.lisp

diff --git a/src/code/target-load.lisp b/src/code/target-load.lisp
index 2e687c5..07703d9 100644 (file)
--- a/src/code/target-load.lisp
+++ b/src/code/target-load.lisp
@@ -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)))