From 689f3b69be1c455707ffd4dced29ad8d9ba658a4 Mon Sep 17 00:00:00 2001 From: Elias Pipping <elias.pipping@fu-berlin.de> Date: Mon, 5 Sep 2016 15:47:55 +0000 Subject: [PATCH] Tests: Clasp: Treat .script files as common lisp --- test/script-support.lisp | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/test/script-support.lisp b/test/script-support.lisp index 788c2dcb..3e33047d 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. -- GitLab