LLP64: change UNSIGNED-LONG to UNSIGNED

[sbcl.git] / src / compiler / generic / target-core.lisp

diff --git a/src/compiler/generic/target-core.lisp b/src/compiler/generic/target-core.lisp
index fddd407..55808d8 100644 (file)
--- a/src/compiler/generic/target-core.lisp
+++ b/src/compiler/generic/target-core.lisp
@@ -22,7 +22,7 @@
   #!+gencgc
   (without-gcing
     (%make-lisp-obj
-     (alien-funcall (extern-alien "alloc_code_object" (function unsigned-long unsigned unsigned))
+     (alien-funcall (extern-alien "alloc_code_object" (function unsigned unsigned unsigned))
                     boxed unboxed)))
   #!-gencgc
   (%primitive allocate-code-object boxed unboxed))