anchor.diff:                 (error "No binding for ~A in or above ~A" symbol env)))
         (error "No binding for ~A in or above ~A" symbol env)))
   
  -(defmethod clutter-bound? (symbol (env env))
  +(defun clutter-bound? (symbol &optional (env *global-env*))
     (if env
         (if (nth-value 1 (gethash symbol (env-bindings env)))
             t
  
positive.code: 
  (defun get-current-env () *denv*)
  
  (defmethod lookup (symbol (env env))
    (when (eq symbol *ignore*)
      (error "Attempted to lookup #ignore in ~A" env))
    (if env
  
negative.code:             t))
        nil))
  
  (defun extend (env symbol &optional value)
    (assert (clutter-symbol-p symbol))
    (unless (eq symbol *ignore*)
      (when (nth-value 1 (gethash symbol (env-bindings env)))
  