anchor.diff:         collect (car var-spec)))
   
   #+cmu
  -(defun lexical-functions (environment)
  +(defmethod lexical-functions ((environment c::lexenv))
     (loop
        for func-spec in (c::lexenv-functions environment)
        ;; flet and labels function look like ((FLET ACTUAL-NAME) . STUFF)
  
positive.code:                                             (and (ccl::var-ea var-spec)
                                                   (consp (ccl::var-ea var-spec))
                                                   (eql :symbol-macro (car (ccl::var-ea var-spec)))))
                                            vars)))))  
  
  #+openmcl
  (defun lexical-functions (environment)
      (loop
       for env = environment
            then (ccl::lexenv.parent-env env)
       while (and env
  
negative.code:        collect (car var-spec)))
  
  #+sbcl
  (defmethod lexical-functions ((environment sb-kernel:lexenv))
    (mapcar #'first (sb-c::lexenv-funs environment)))
  
  ;;;; ** CMUCL
  
  #+cmu
  (defmethod environment-p ((environment c::lexenv))
    t)
  
  #+cmu
  (defmethod lexical-variables ((environment c::lexenv))
    (loop
       for var-spec in (c::lexenv-variables environment)
       ;; variable refs are (NAME . LAMBDA-VAR), we want to void
  