diff --git a/test/script-support.lisp b/test/script-support.lisp index 0e8a94cffce375b8847de86cc2e5103a5dd73a37..192e07ffe91221508c20f80cd450ca6a3c97dc06 100644 --- a/test/script-support.lisp +++ b/test/script-support.lisp @@ -44,8 +44,8 @@ Some constraints: #+(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*)) +(unless (assoc "script" si:*load-hooks* :test #'equal) + (push (cons "script" 'si:load-source) si:*load-hooks*)) (defparameter *trace-symbols* `(;; If you want to trace some stuff while debugging ASDF,