X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fbackend.lisp;h=915dec014e70c86c581a3972fd793e001f1f5b9b;hb=b63c4fb9b98fa8188e17ba926e150ba417a74635;hp=01846185e54477b2f782eca1b03b376c1707348a;hpb=28d9bb7a509695caaf78d647b6aa1b0f02c0e83a;p=sbcl.git

diff --git a/src/compiler/backend.lisp b/src/compiler/backend.lisp
index 0184618..915dec0 100644
--- 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*))
 
 ;;;; VM support routines
 
@@ -161,7 +157,7 @@
 						  name)
 				    *backend-support-routines*)
 				   (error "machine-specific support ~S ~
-					    routine undefined"
+                                           routine undefined"
 					  ',name))
 			       args)))
 		   routines))))