X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug-int.lisp;h=f2e6012229248616a851ff02effe2414fdbf8619;hb=395c461b58f0cd484c21913c1e075593c206b5c1;hp=4b6be6d4d3c74e3ad3142fa3919d933eda48f4e0;hpb=037c6feb124095c08fa964dd53d2660c3c7eb022;p=sbcl.git

diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp
index 4b6be6d..f2e6012 100644
--- a/src/code/debug-int.lisp
+++ b/src/code/debug-int.lisp
@@ -3306,8 +3306,7 @@ register."
           (trap-loc (foreign-symbol-sap "fun_end_breakpoint_trap"))
           (length (sap- src-end src-start))
           (code-object
-           (%primitive sb!c:allocate-code-object (1+ bogus-lra-constants)
-                       length))
+           (sb!c:allocate-code-object (1+ bogus-lra-constants) length))
           (dst-start (code-instructions code-object)))
      (declare (type system-area-pointer
                     src-start src-end dst-start trap-loc)