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
Loading
Loading
Loading
Loading
+2 −2
Original line number Diff line number Diff line
@@ -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)

+6 −1
Original line number Diff line number Diff line
@@ -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