(define-vop (alloc-number-stack-space)
(:info amount)
+ (:result-types system-area-pointer)
(:results (result :scs (sap-reg any-reg)))
(:temporary (:scs (unsigned-reg) :to (:result 0)) temp)
(:generator 0
;;; callback wrapper
#-sb-xc-host
(defun alien-callback-assembler-wrapper (index result-type argument-types)
+ #!+sb-doc
"Cons up a piece of code which calls enter-alien-callback with INDEX
and a pointer to the arguments."
(flet ((make-gpr (n)