From d3146c8ace90aee2564c7ccc146f0128f5bad5e8 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Mon, 15 Jul 2013 09:33:21 +0200
Subject: Add a (wrong) definition of LOAD-TIME-VALUE.

---
 sb-eval2.lisp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/sb-eval2.lisp b/sb-eval2.lisp
index 4220e94..61aafae 100644
--- a/sb-eval2.lisp
+++ b/sb-eval2.lisp
@@ -690,6 +690,10 @@
                                              (funcall val env))
                                        (funcall more new-env)))))))))
                 (prepare-let* bindings context))))
+           ((load-time-value)
+            (let ((load-form (cadr form)))
+              ;; FIXME
+              (prepare-form load-form)))
            ((locally)
             (prepare-nil))
            ((multiple-value-call)
-- 
cgit v1.2.3