projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre7.84:
[sbcl.git]
/
src
/
compiler
/
ir1tran.lisp
diff --git
a/src/compiler/ir1tran.lisp
b/src/compiler/ir1tran.lisp
index
f3996cf
..
889bc62
100644
(file)
--- a/
src/compiler/ir1tran.lisp
+++ b/
src/compiler/ir1tran.lisp
@@
-1062,8
+1062,7
@@
(compiler-error
"~S is an alien variable and so can't be declared special."
name))
(compiler-error
"~S is an alien variable and so can't be declared special."
name))
- (when (or (not (global-var-p found))
- (eq (global-var-kind found) :constant))
+ (unless (global-var-p found)
(compiler-error
"~S is a constant and so can't be declared special."
name))
(compiler-error
"~S is a constant and so can't be declared special."
name))