X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffull-eval.lisp;h=00e4e33055d062cc5158be0db820aee13db51a88;hb=f8c8f81c3e10865a40ea6ceb79be0a045a6e6e4e;hp=6f6a88f6adce45fe1746783d47207419115a006f;hpb=d2b9d8bbd2d1489723a4437e64f607585670ed58;p=sbcl.git

diff --git a/src/code/full-eval.lisp b/src/code/full-eval.lisp
index 6f6a88f..00e4e33 100644
--- a/src/code/full-eval.lisp
+++ b/src/code/full-eval.lisp
@@ -236,7 +236,10 @@
     (cond
       ((eq type :constant)
        ;; Horrible place for this, but it works.
-       (ip-error "Can't bind constant symbol ~S" symbol))
+       (ip-error "Can't bind constant symbol: ~S" symbol))
+      ((eq type :global)
+       ;; Ditto...
+       (ip-error "Can't bind a global variable: ~S" symbol))
       ((eq type :special) t)
       ((member symbol declared-specials :test #'eq)
        t)