projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.28.66: implement SB-EXT:GET-TIME-OF-DAY
[sbcl.git]
/
src
/
code
/
full-eval.lisp
diff --git
a/src/code/full-eval.lisp
b/src/code/full-eval.lisp
index
6f6a88f
..
00e4e33
100644
(file)
--- 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.
(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)
((eq type :special) t)
((member symbol declared-specials :test #'eq)
t)