;;; FIXME: This doesn't seem to be needed in the target Lisp, only
;;; at build-the-system time.
;;;
;;; FIXME: This doesn't seem to be needed in the target Lisp, only
;;; at build-the-system time.
;;;
;;; (IF (ZEROP (LOGAND BYTE 16))
;;; (IF (ZEROP (LOGAND BYTE 8))
;;; (IF (ZEROP (LOGAND BYTE 4))
;;; (IF (ZEROP (LOGAND BYTE 16))
;;; (IF (ZEROP (LOGAND BYTE 8))
;;; (IF (ZEROP (LOGAND BYTE 4))
(inline-function-info-type info)))
(arg-types (second spec))
(result-type (third spec))
(inline-function-info-type info)))
(arg-types (second spec))
(result-type (third spec))
arg-types args))
,(if (and (consp result-type)
(eq (car result-type) 'values))
arg-types args))
,(if (and (consp result-type)
(eq (car result-type) 'values))
`(multiple-value-bind ,results ,func
,@(mapcar #'(lambda (res)
`(push-eval-stack ,res))
`(multiple-value-bind ,results ,func
,@(mapcar #'(lambda (res)
`(push-eval-stack ,res))
;;; Call a function with some arguments popped off of the interpreter
;;; stack, and restore the SP to the specifier value.
(defun byte-apply (function num-args restore-sp)
;;; Call a function with some arguments popped off of the interpreter
;;; stack, and restore the SP to the specifier value.
(defun byte-apply (function num-args restore-sp)