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

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