0.6.11.45:

[sbcl.git] / src / compiler / backend.lisp

diff --git a/src/compiler/backend.lisp b/src/compiler/backend.lisp
index 06e7d53..837baf9 100644 (file)
--- a/src/compiler/backend.lisp
+++ b/src/compiler/backend.lisp
@@ -20,9 +20,6 @@
 ;;;; files for more information.
 
 (in-package "SB!C")
-
-(file-comment
-  "$Header$")
 \f
 ;;;; miscellaneous backend properties
 
@@ -119,7 +116,7 @@
 ;;; 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*))
@@ -171,7 +168,7 @@
             `(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))
@@ -228,7 +225,7 @@
 
 (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))
@@ -250,8 +247,3 @@
 
 (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")))