Loading footer.lisp +2 −2 Original line number Original line Diff line number Diff line Loading @@ -9,8 +9,8 @@ #+(or abcl clasp cmucl clozure ecl mkcl sbcl) #+(or abcl clasp cmucl clozure ecl mkcl sbcl) (:import-from #+abcl :sys #+(or clasp cmucl ecl) :ext #+clozure :ccl #+mkcl :mk-ext #+sbcl sb-ext (:import-from #+abcl :sys #+(or clasp cmucl ecl) :ext #+clozure :ccl #+mkcl :mk-ext #+sbcl sb-ext #:*module-provider-functions* #:*module-provider-functions* #+(or clasp ecl) #:*load-hooks*) #+ecl #:*load-hooks*) #+mkcl (:import-from :si #:*load-hooks*)) #+(or clasp mkcl) (:import-from :si #:*load-hooks*)) (in-package :asdf/footer) (in-package :asdf/footer) Loading test/script-support.lisp +6 −1 Original line number Original line Diff line number Diff line Loading @@ -42,6 +42,10 @@ Some constraints: (proclaim '(optimize (speed #-gcl 2 #+gcl 1) (safety #-gcl 3 #+gcl 0) #-(or allegro gcl genera) (debug 3) (proclaim '(optimize (speed #-gcl 2 #+gcl 1) (safety #-gcl 3 #+gcl 0) #-(or allegro gcl genera) (debug 3) #+(or cmucl scl) (c::brevity 2) #+(or cmucl scl) (ext:inhibit-warnings 3))) #+(or cmucl scl) (c::brevity 2) #+(or cmucl scl) (ext:inhibit-warnings 3))) #+clasp (unless (assoc "script" core:*load-hooks* :test #'equal) (push (cons "script" 'core:load-source) core:*load-hooks*)) (defparameter *trace-symbols* (defparameter *trace-symbols* `(;; If you want to trace some stuff while debugging ASDF, `(;; If you want to trace some stuff while debugging ASDF, ;; here's a nice place to say what. ;; here's a nice place to say what. Loading Loading @@ -254,8 +258,9 @@ Some constraints: (:case-sensitive-lower :mlisp) (:case-sensitive-lower :mlisp) (:case-insensitive-upper :alisp)) (:case-insensitive-upper :alisp)) #+armedbear :abcl #+armedbear :abcl #+(or clasp ecl) (or #+ecl-bytecmp :ecl_bytecodes :ecl) #+ecl (or #+ecl-bytecmp :ecl_bytecodes :ecl) #+clisp :clisp #+clisp :clisp #+clasp :clasp #+clozure :ccl #+clozure :ccl #+cmucl :cmucl #+cmucl :cmucl #+corman :cormanlisp #+corman :cormanlisp Loading Loading
footer.lisp +2 −2 Original line number Original line Diff line number Diff line Loading @@ -9,8 +9,8 @@ #+(or abcl clasp cmucl clozure ecl mkcl sbcl) #+(or abcl clasp cmucl clozure ecl mkcl sbcl) (:import-from #+abcl :sys #+(or clasp cmucl ecl) :ext #+clozure :ccl #+mkcl :mk-ext #+sbcl sb-ext (:import-from #+abcl :sys #+(or clasp cmucl ecl) :ext #+clozure :ccl #+mkcl :mk-ext #+sbcl sb-ext #:*module-provider-functions* #:*module-provider-functions* #+(or clasp ecl) #:*load-hooks*) #+ecl #:*load-hooks*) #+mkcl (:import-from :si #:*load-hooks*)) #+(or clasp mkcl) (:import-from :si #:*load-hooks*)) (in-package :asdf/footer) (in-package :asdf/footer) Loading
test/script-support.lisp +6 −1 Original line number Original line Diff line number Diff line Loading @@ -42,6 +42,10 @@ Some constraints: (proclaim '(optimize (speed #-gcl 2 #+gcl 1) (safety #-gcl 3 #+gcl 0) #-(or allegro gcl genera) (debug 3) (proclaim '(optimize (speed #-gcl 2 #+gcl 1) (safety #-gcl 3 #+gcl 0) #-(or allegro gcl genera) (debug 3) #+(or cmucl scl) (c::brevity 2) #+(or cmucl scl) (ext:inhibit-warnings 3))) #+(or cmucl scl) (c::brevity 2) #+(or cmucl scl) (ext:inhibit-warnings 3))) #+clasp (unless (assoc "script" core:*load-hooks* :test #'equal) (push (cons "script" 'core:load-source) core:*load-hooks*)) (defparameter *trace-symbols* (defparameter *trace-symbols* `(;; If you want to trace some stuff while debugging ASDF, `(;; If you want to trace some stuff while debugging ASDF, ;; here's a nice place to say what. ;; here's a nice place to say what. Loading Loading @@ -254,8 +258,9 @@ Some constraints: (:case-sensitive-lower :mlisp) (:case-sensitive-lower :mlisp) (:case-insensitive-upper :alisp)) (:case-insensitive-upper :alisp)) #+armedbear :abcl #+armedbear :abcl #+(or clasp ecl) (or #+ecl-bytecmp :ecl_bytecodes :ecl) #+ecl (or #+ecl-bytecmp :ecl_bytecodes :ecl) #+clisp :clisp #+clisp :clisp #+clasp :clasp #+clozure :ccl #+clozure :ccl #+cmucl :cmucl #+cmucl :cmucl #+corman :cormanlisp #+corman :cormanlisp Loading