;;; The T primitive-type is kept in this variable so that people who
;;; have to special-case it can get at it conveniently. This variable
;;; has to be set by the machine-specific VM definition, since the
;;; The T primitive-type is kept in this variable so that people who
;;; have to special-case it can get at it conveniently. This variable
;;; has to be set by the machine-specific VM definition, since the
`(progn
(eval-when (:compile-toplevel :load-toplevel :execute)
(defparameter *vm-support-routines* ',routines))
`(progn
(eval-when (:compile-toplevel :load-toplevel :execute)
(defparameter *vm-support-routines* ',routines))
,@(mapcar #'(lambda (routine)
`(,routine nil :type (or function null)))
routines))
,@(mapcar #'(lambda (routine)
`(,routine nil :type (or function null)))
routines))
(unless (member (intern (string name) (find-package "SB!C"))
*vm-support-routines*)
(warn "unknown VM support routine: ~A" name))
(unless (member (intern (string name) (find-package "SB!C"))
*vm-support-routines*)
(warn "unknown VM support routine: ~A" name))