0.8.16.25:

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

diff --git a/src/compiler/backend.lisp b/src/compiler/backend.lisp
index 0184618..915dec0 100644 (file)
--- a/src/compiler/backend.lisp
+++ b/src/compiler/backend.lisp
@@ -107,7 +107,7 @@
 (defvar *backend-t-primitive-type*)
 (declaim (type primitive-type *backend-t-primitive-type*))
 
-;;; a hashtable translating from VOP names to the corresponding VOP-Parse
+;;; a hashtable translating from VOP names to the corresponding VOP-PARSE
 ;;; structures. This information is only used at meta-compile time.
 (defvar *backend-parsed-vops* (make-hash-table :test 'eq))
 (declaim (type hash-table *backend-parsed-vops*))
@@ -133,10 +133,6 @@
 ;;; they haven't been installed yet
 (defvar *backend-internal-errors* nil)
 (declaim (type (or simple-vector null) *backend-internal-errors*))
-
-;;; the maximum number of bytes per page on this system (used by GENESIS)
-(defvar *backend-page-size* 0)
-(declaim (type index *backend-page-size*))
 \f
 ;;;; VM support routines
 
@@ -161,7 +157,7 @@
                                                  name)
                                    *backend-support-routines*)
                                   (error "machine-specific support ~S ~
-                                           routine undefined"
+                                           routine undefined"
                                          ',name))
                               args)))
                   routines))))