From 5057e340c9d3a947b11895f692f61d7f1b614cf6 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Sun, 21 Jul 2013 12:04:26 +0200
Subject: PREPARE-REF: Check BOUNDPness of variables prior to access.

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

(limited to 'sb-eval2.lisp')

diff --git a/sb-eval2.lisp b/sb-eval2.lisp
index aa9735e..b6aa7a9 100644
--- a/sb-eval2.lisp
+++ b/sb-eval2.lisp
@@ -282,6 +282,8 @@
         (assume-special context var)
         (lambda (env)
           (declare (ignore env))
+          (unless (boundp var)
+            (error 'unbound-variable :name var))
           (symbol-value var)))))
 
 
-- 
cgit v1.2.3