Skip to content
Snippets Groups Projects
Commit 39da4432 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Merge branch 'clasp-fixes' into 'master'

Clasp fixes

In particular, this allows tests to be run, even though many still fail.

See merge request !4
parents fc1cb09a fd2c4054
No related branches found
No related tags found
No related merge requests found
......@@ -9,8 +9,8 @@
#+(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
#:*module-provider-functions*
#+(or clasp ecl) #:*load-hooks*)
#+mkcl (:import-from :si #:*load-hooks*))
#+ecl #:*load-hooks*)
#+(or clasp mkcl) (:import-from :si #:*load-hooks*))
(in-package :asdf/footer)
......
......@@ -42,6 +42,10 @@ Some constraints:
(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)))
#+clasp
(unless (assoc "script" core:*load-hooks* :test #'equal)
(push (cons "script" 'core:load-source) core:*load-hooks*))
(defparameter *trace-symbols*
`(;; If you want to trace some stuff while debugging ASDF,
;; here's a nice place to say what.
......@@ -254,8 +258,9 @@ Some constraints:
(:case-sensitive-lower :mlisp)
(:case-insensitive-upper :alisp))
#+armedbear :abcl
#+(or clasp ecl) (or #+ecl-bytecmp :ecl_bytecodes :ecl)
#+ecl (or #+ecl-bytecmp :ecl_bytecodes :ecl)
#+clisp :clisp
#+clasp :clasp
#+clozure :ccl
#+cmucl :cmucl
#+corman :cormanlisp
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment