From 5d8cc705cfea390c21fc829d4f2007b8bdd20bdf Mon Sep 17 00:00:00 2001
From: Alfredo Beaumont <alfredo.beaumont@gmail.com>
Date: Fri, 26 Apr 2013 00:18:54 +0200
Subject: [PATCH] eval-interactive: avoid a broken eval due to an unbound *

---
 src/toplevel.lisp |    3 +++
 1 file changed, 3 insertions(+)

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 +++ ++
         ++ +
         + -)
-- 
1.7.10.4