#!+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))
(setf (%simple-fun-name res) (entry-info-name entry-info))
(setf (%simple-fun-arglist res) (entry-info-arguments entry-info))
(setf (%simple-fun-type res) (entry-info-type entry-info))
- (setf (%simple-fun-xrefs res) (entry-info-xref entry-info))
+ (setf (%simple-fun-info res) (entry-info-info entry-info))
(note-fun entry-info res object))))