:foreign-data))

    (inst mov res (make-ea :qword :base res))))

 (define-vop (call-out)

   (:args (function :scs (sap-reg))

 	 (args :more t))

       (let ((delta (logandc2 (+ amount 3) 3)))

 	(inst add rsp-tn delta)))))

 (define-vop (alloc-alien-stack-space)

   (:info amount)

   (:results (result :scs (sap-reg any-reg)))

 			     (- other-pointer-type)))

 	(inst add (make-ea :qword :base temp-tn)

 	      delta)))))

 ;;; Support for callbacks to Lisp.

 (export '(make-callback-trampoline callback-accessor-form))

     (let* ((length (finalize-segment segment)))

       (prog1 (alien::segment-to-trampoline segment length)

 	(release-segment segment)))))