Loading test/asdf-pathname-test.script +2 −2 Original line number Diff line number Diff line Loading @@ -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 Loading test/script-support.lisp +7 −7 Original line number Diff line number Diff line Loading @@ -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, Loading Loading @@ -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 Loading Loading @@ -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) Loading @@ -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)) Loading Loading @@ -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) Loading Loading @@ -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))))))) Loading test/test-deferred-warnings.script +2 −2 Original line number Diff line number Diff line Loading @@ -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))) test/test-make-build.script +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)) Loading test/test-program.script +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)) Loading Loading @@ -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) Loading Loading @@ -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 Loading
test/asdf-pathname-test.script +2 −2 Original line number Diff line number Diff line Loading @@ -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 Loading
test/script-support.lisp +7 −7 Original line number Diff line number Diff line Loading @@ -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, Loading Loading @@ -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 Loading Loading @@ -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) Loading @@ -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)) Loading Loading @@ -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) Loading Loading @@ -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))))))) Loading
test/test-deferred-warnings.script +2 −2 Original line number Diff line number Diff line Loading @@ -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)))
test/test-make-build.script +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)) Loading
test/test-program.script +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)) Loading Loading @@ -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) Loading Loading @@ -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