- (:symbol name "globally declaring ~A special"))
- (clear-info :variable :constant-value name)
- (setf (info :variable :kind name) :special)))
+ (:symbol name "globally declaring ~A special")
+ (about-to-modify-symbol-value name "proclaim ~S as SPECIAL")
+ (setf (info :variable :kind name) :special))))