X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fdebug-int.lisp;h=62cfa088a83af53a633d6d1980332c3d9ae6db87;hb=6a9bbe6f36179cee92001a1f9ed5ff38be512644;hp=d05a3dab8a10234ffdc0eeebc138915fce58ace7;hpb=9c9c68bd6e5e3c6d02e9f1bfd583b87bb9e85eea;p=sbcl.git

diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp
index d05a3da..62cfa08 100644
--- a/src/code/debug-int.lisp
+++ b/src/code/debug-int.lisp
@@ -3236,11 +3236,8 @@
 	  (trap-loc (foreign-symbol-address "fun_end_breakpoint_trap"))
 	  (length (sap- src-end src-start))
 	  (code-object
-	   (%primitive
-	    #!-(and x86 gencgc) sb!c:allocate-code-object
-	    #!+(and x86 gencgc) sb!c::allocate-dynamic-code-object
-	    (1+ bogus-lra-constants)
-	    length))
+	   (%primitive 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)