;;;; files for more information.
(in-package "SB!C")
-
-(file-comment
- "$Header$")
\f
;;;; miscellaneous backend properties
;;; 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
-;;; DEF-PRIMITIVE-TYPE for T must specify the SCs that boxed objects
+;;; !DEF-PRIMITIVE-TYPE for T must specify the SCs that boxed objects
;;; can be allocated in.
(defvar *backend-t-primitive-type*)
(declaim (type primitive-type *backend-t-primitive-type*))
`(progn
(eval-when (:compile-toplevel :load-toplevel :execute)
(defparameter *vm-support-routines* ',routines))
- (defstruct vm-support-routines
+ (defstruct (vm-support-routines (:copier nil))
,@(mapcar #'(lambda (routine)
`(,routine nil :type (or function null)))
routines))
(defprinter (vm-support-routines))
-(defmacro def-vm-support-routine (name ll &body body)
+(defmacro !def-vm-support-routine (name ll &body body)
(unless (member (intern (string name) (find-package "SB!C"))
*vm-support-routines*)
(warn "unknown VM support routine: ~A" name))
(defun backend-byte-fasl-file-implementation ()
*backend-byte-order*)
-
-(defun backend-byte-fasl-file-type ()
- (ecase *backend-byte-order*
- (:big-endian "bytef")
- (:little-endian "lbytef")))