-(defun variable-special-p (var env)
- (or (not (null (variable-declaration 'special var env)))
- (variable-globally-special-p var)))
+(defun var-special-p (var env)
+ (or (not (null (var-declaration 'special var env)))
+ (var-globally-special-p var)))