From: Alfredo Beaumont <alfredo.beaumont@gmail.com>
Date: Thu, 25 Apr 2013 22:18:54 +0000 (+0200)
Subject: eval-interactive: avoid a broken eval due to an unbound *
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=5d8cc705cfea390c21fc829d4f2007b8bdd20bdf;p=jscl.git

eval-interactive: avoid a broken eval due to an unbound *
---

diff --git a/src/toplevel.lisp b/src/toplevel.lisp
index 1167cfb..4bcb08d 100644
--- a/src/toplevel.lisp
+++ b/src/toplevel.lisp
@@ -40,6 +40,9 @@
           *** **
           ** *
           * (car results)))
+  (unless (boundp '*)
+    ;; FIXME: Handle error
+    (setf * nil))
   (setf +++ ++
         ++ +
         + -)