-(defun set-binding-value (b value)
- (setf (binding-value b) value))
-
-(defun set-binding-declarations (b value)
- (setf (binding-declarations b) value))
-
-(defun push-binding-declaration (decl b)
- (set-binding-declarations b (cons decl (binding-declarations b))))
-
-