X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fdefun-load-or-cload-xcompiler.lisp;h=0f8c8e63ebfec544c09776dafe8b368900e488fb;hb=95816dfe1bac897f06fcd8c7b2a4579d76f841d0;hp=1d696f79a2fe9155553f7424751bf22520bf8a8e;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/cold/defun-load-or-cload-xcompiler.lisp b/src/cold/defun-load-or-cload-xcompiler.lisp
index 1d696f7..0f8c8e6 100644
--- a/src/cold/defun-load-or-cload-xcompiler.lisp
+++ b/src/cold/defun-load-or-cload-xcompiler.lisp
@@ -22,17 +22,17 @@
   ;; compilation of the target.
   (let ((package-name "SB-XC"))
     (make-package package-name :use nil :nicknames nil)
-    (dolist (name '("*COMPILE-FILE-PATHNAME*"
-		    "*COMPILE-FILE-TRUENAME*"
-		    "*COMPILE-PRINT*"
-		    "*COMPILE-VERBOSE*"
-		    "ARRAY-RANK-LIMIT"
+    (dolist (name '("ARRAY-RANK-LIMIT"
 		    "ARRAY-DIMENSION-LIMIT"
 		    "ARRAY-TOTAL-SIZE-LIMIT"
 		    "BUILT-IN-CLASS"
 		    "CLASS" "CLASS-NAME" "CLASS-OF"
 		    "COMPILE-FILE"
 		    "COMPILE-FILE-PATHNAME"
+		    "*COMPILE-FILE-PATHNAME*"
+		    "*COMPILE-FILE-TRUENAME*"
+		    "*COMPILE-PRINT*"
+		    "*COMPILE-VERBOSE*"
 		    "COMPILER-MACRO-FUNCTION"
 		    "CONSTANTP"
 		    "DEFCONSTANT"