Commit e8c00bfc authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Consistently use #+cmucl rather than #+cmu

parent eb07bed2
Loading
Loading
Loading
Loading
+2 −2
Original line number Diff line number Diff line
@@ -419,9 +419,9 @@
    (clear-system "test-system")))

(defun test-pathname-parsing ()
  #-(or allegro clisp clozure cmu ecl lispworks mkcl sbcl)
  #-(or allegro clisp clozure cmucl ecl lispworks mkcl sbcl)
  (DBG "Can't test pathname parsing: this lisp lacks SETENV support.")
  #+(or allegro clisp clozure cmu ecl lispworks mkcl sbcl)
  #+(or allegro clisp clozure cmucl ecl lispworks mkcl sbcl)
  (let ((old-config (uiop:getenvp "XDG_CONFIG_DIRS"))
        (old-home-config (uiop:getenvp "XDG_CONFIG_HOME")))
    (unwind-protect
+7 −7
Original line number Diff line number Diff line
@@ -38,9 +38,9 @@ Some constraints:
#+(and ecl (not ecl-bytecmp)) (require :cmp)

(declaim (optimize (speed 2) (safety #-gcl 3 #+gcl 0) #-(or allegro gcl genera) (debug 3)
                   #+(or cmu scl) (c::brevity 2)))
                   #+(or cmucl scl) (c::brevity 2)))
(proclaim '(optimize (speed #-gcl 2 #+gcl 1) (safety #-gcl 3 #+gcl 0) #-(or allegro gcl genera) (debug 3)
                     #+(or cmu scl) (c::brevity 2) #+(or cmu scl) (ext:inhibit-warnings 3)))
                     #+(or cmucl scl) (c::brevity 2) #+(or cmucl scl) (ext:inhibit-warnings 3)))

(defparameter *trace-symbols*
  `(;; If you want to trace some stuff while debugging ASDF,
@@ -257,7 +257,7 @@ Some constraints:
      #+(or clasp ecl) (or #+ecl-bytecmp :ecl_bytecodes :ecl)
      #+clisp :clisp
      #+clozure :ccl
      #+cmu :cmucl
      #+cmucl :cmucl
      #+corman :cormanlisp
      #+digitool :mcl
      #+gcl :gcl
@@ -338,7 +338,7 @@ Some constraints:
  #+clisp (ext:quit code)
  #+clozure (ccl:quit code)
  #+cormanlisp (win32:exitprocess code)
  #+(or cmu scl) (unix:unix-exit code)
  #+(or cmucl scl) (unix:unix-exit code)
  #+gcl (system:quit code)
  #+genera (error "You probably don't want to Halt the Machine. (code: ~S)" code)
  #+lispworks (lispworks:quit :status code :confirm nil :return nil :ignore-errors-p t)
@@ -349,7 +349,7 @@ Some constraints:
             (cond
               (exit `(,exit :code code :abort t))
               (quit* `(,quit* :unix-status code :recklessly-p t))))
  #-(or abcl allegro clasp clisp clozure cmu ecl gcl genera lispworks mcl mkcl sbcl scl xcl)
  #-(or abcl allegro clasp clisp clozure cmucl ecl gcl genera lispworks mcl mkcl sbcl scl xcl)
  (error "~S called with exit code ~S but there's no quitting on this implementation" 'quit code))


@@ -446,7 +446,7 @@ is bound, write a message and exit on an error. If
                 #+sbcl
                 ((or sb-c::simple-compiler-note sb-kernel:redefinition-warning)
                   #'muffle-warning)
                 #-(or cmu scl)
                 #-(or cmucl scl)
                 ;; style warnings shouldn't abort the compilation [2010/02/03:rpg]
                 (style-warning
                   #'(lambda (w)
@@ -487,7 +487,7 @@ is bound, write a message and exit on an error. If
            ;; CMUCL: ?
            ;; ECL 11.1.1 has spurious warnings, same with XCL 0.0.0.291.
            ;; SCL has no warning but still raises the warningp flag since 2.20.15 (?)
            #+(or clasp clisp cmu ecl scl xcl) (good :expected-style-warnings)
            #+(or clasp clisp cmucl ecl scl xcl) (good :expected-style-warnings)
            (and upgradep (good :unexpected-style-warnings))
            (bad :unexpected-style-warnings)))
          (t (good :success)))))))
+2 −2
Original line number Diff line number Diff line
@@ -108,12 +108,12 @@
     (:no-error (&rest values) (DBG :ustdf1 values) nil))))

(errors #+(or allegro clozure) compile-file-error
        #+(or cmu scl) compile-warned-error
        #+(or cmucl scl) compile-warned-error
        #+sbcl compile-failed-error
        (let ((*compile-file-warnings-behaviour* :error))
          (load-system :undefined-variables :force t)))
(errors #+(or allegro clozure) compile-file-error
        #+(or cmu scl) null
        #+(or cmucl scl) null
        #+sbcl compile-failed-error
        (let ((*compile-file-warnings-behaviour* :warning))
          (load-system :undefined-variables :force t)))
+1 −1
Original line number Diff line number Diff line
;;; -*- Lisp -*-

(unless (or #+(or (and clisp os-unix) clozure cmu
(unless (or #+(or (and clisp os-unix) clozure cmucl
                  (and ecl (not ecl-bytecmp) (not os-macosx)) lispworks mkcl sbcl scl) t)
  (DBG "Creating executables is not supported on your CL implementation")
  (leave-test "Skipping test" 0))
+3 −3
Original line number Diff line number Diff line
;;; -*- Lisp -*-
(DBG :foo (current-lisp-file-pathname))

(unless (or #+(or allegro (and clisp os-unix) clozure cmu (and ecl (not ecl-bytecmp)) lispworks mkcl sbcl scl) t)
(unless (or #+(or allegro (and clisp os-unix) clozure cmucl (and ecl (not ecl-bytecmp)) lispworks mkcl sbcl scl) t)
  (DBG "Creating images is not supported on your CL implementation")
  (leave-test "Skipping test" 0))

@@ -44,7 +44,7 @@
  (delete-file-if-exists img)
  (DBG "- first create an executable image")
  (make-hello-world 'image)
  #+cmu
  #+cmucl
  (unless (probe-file* img)
    (leave-test "CMUCL seemingly can't find the 32-bit compiler and libraries required to dump images. Aborting test." 0))
  (assert (probe-file* img) () "Can't find image file ~S" img)
@@ -81,7 +81,7 @@
(progn
  (DBG "test program-op")
  (unless (or #+(or clisp clozure (and ecl (not ecl-bytecmp)) lispworks mkcl sbcl) t
              #+cmu nil ;; uncomment if you have 32-bit gcc support - or can autodetect
              #+cmucl nil ;; uncomment if you have 32-bit gcc support - or can autodetect
              #+clisp (version-satisfies
                       (first (split-string (lisp-implementation-version) :separator " "))
                       "2.48"))
Loading