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