cmp: cosmetic cleanups

src/cmp/cmpenv-declaim.lsp

@@ -20,7 +20,7 @@
 ;;;; stem from.
 ;;;;
  
-(in-package #-ecl-new "COMPILER" #+ecl-new "C-ENV")
+(in-package "COMPILER")
 
 (defun process-declaim-args (args)
   (flet ((add-variables (env types specials)
@@ -29,7 +29,7 @@
               do (let ((v (c1make-global-variable name :kind 'special)))
                    (setf env (cmp-env-register-var v env nil))))
            (loop for (name . type) in types
-              for specialp = (or (sys:specialp name) (member name specials))
+              for specialp = (or (si:specialp name) (member name specials))
               for kind = (if specialp 'SPECIAL 'GLOBAL)
               for v = (c1make-global-variable name :type type :kind kind)
               do (setf env (cmp-env-register-var v env nil)))

src/cmp/cmpenv-declare.lsp

@@ -18,10 +18,10 @@
 ;;;; compiled file and do not propagate beyond it.
 ;;;;
 
-(in-package #-ecl-new "COMPILER" #+ecl-new "C-ENV")
+(in-package "COMPILER")
 
 (defun valid-form-p (x &optional test)
-  (and (si::proper-list-p x)
+  (and (si:proper-list-p x)
        (or (null test)
            (every test x))))
 

src/cmp/cmpenv-proclaim.lsp

@@ -32,7 +32,7 @@
     (cl:SPECIAL
      (dolist (var (cdr decl))
        (if (symbolp var)
-           (sys:*make-special var)
+           (si:*make-special var)
            (error "Syntax error in proclamation ~s" decl))))
     (cl:OPTIMIZE
      (dolist (x (cdr decl))

src/cmp/cmpglobals.lsp

@@ -51,11 +51,11 @@
 (defvar *compiler-conditions* '()
   "This variable determines whether conditions are printed or just accumulated.")
 
-(defvar cl:*compile-print* nil
+(defvar *compile-print* nil
   "This variable controls whether the compiler displays messages about
 each form it processes. The default value is NIL.")
 
-(defvar cl:*compile-verbose* nil
+(defvar *compile-verbose* nil
   "This variable controls whether the compiler should display messages about its
 progress. The default value is T.")
 
@@ -305,7 +305,7 @@ be deleted if they have been opened with LoadLibrary.")
 ;;; If (safe-compile) is ON, some kind of run-time checks are not
 ;;; included in the compiled code.  The default value is OFF.
 
-(defconstant +init-env-form+
+(defvar +init-env-form+
   '((*gensym-counter* 0)
     (*compiler-in-use* t)
     (*compiler-phase* 't1)
@@ -336,7 +336,7 @@ be deleted if they have been opened with LoadLibrary.")
     (*machine* (or *machine* *default-machine*))
     (*optimizable-constants* (make-optimizable-constants *machine*))
     (*inline-information*
-     (let ((r (machine-inline-information *machine*)))
-       (if r (si::copy-hash-table r) (make-inline-information *machine*))))
-    ))
+     (ext:if-let ((r (machine-inline-information *machine*)))
+       (si:copy-hash-table r)
+       (make-inline-information *machine*)))))
 

src/cmp/cmppolicy.lsp

@@ -39,7 +39,7 @@
        for fun-name = (intern (concatenate 'string
                                            "POLICY-TO-" (symbol-name name) "-LEVEL"))
        collect `(defun ,fun-name (policy)
-                  (declare (declaration ext:assume-right-type))
+                  (declare (ext:assume-right-type))
                   (loop for level from 0 to 3
                      when (logbitp (+ level ,i) policy)
                      return level))))
@@ -54,9 +54,9 @@
     (dolist (x arguments)
       (let (flags name value)
         (cond ((symbolp x)
-               (setq flags (optimization-quality-switches x 3)
+               (setq name x
                      value 3
-                     name x))
+                     flags (optimization-quality-switches name value)))
               ((or (not (consp x))
                    (not (consp (cdr x)))
                    (not (numberp (second x)))
@@ -64,9 +64,9 @@
               (t
                (setf name (first x)
                      value (second x)
-                     flags (optimization-quality-switches name (second x)))))
+                     flags (optimization-quality-switches name value))))
         (if (null flags)
-            (cmpwarn "Illegal or unknown OPTIMIZE proclamation ~s" x)
+            (cmpwarn "Illegal or unknown OPTIMIZE proclamation ~s." x)
             (setf on (logior on (car flags))
                   off (logior off (cdr flags))))))
     ;;(format t "~%*~64b" bits)

src/cmp/cmputil.lsp

@@ -40,9 +40,9 @@
   (when (wild-pathname-p path)
     (error "Cannot coerce ~A to a physical filename~%" path))
   #+windows
-  (namestring (si::coerce-to-file-pathname path))
+  (namestring (si:coerce-to-file-pathname path))
   #-windows
-  (enough-namestring (si::coerce-to-file-pathname path)))
+  (enough-namestring (si:coerce-to-file-pathname path)))
 
 (defun normalize-build-target-name (target)
   (ecase target