diff --git a/test/script-support.lisp b/test/script-support.lisp index 788c2dcb69629289bc5f7d65ff6e9e559adf9cf4..3e33047d7d947938a6f6dcb9148dd83ebe3b3d1f 100644 --- a/test/script-support.lisp +++ b/test/script-support.lisp @@ -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.