anchor.diff:                         (slot-value venv 'compiler::kind))
                        (slot-value environment 'compiler::venv))))
   
  -#+lispworks
  -(defmethod lexical-variables ((environment lexical::environment))
  -  (mapcar #'car (slot-value environment 'lexical::variables)))
  -
  -#+lispworks
  +#+(and lispworks macosx)
   (defmethod lexical-functions ((environment system::augmented-environment))
     (mapcar #'car
             (remove-if (lambda (fenv)
  
positive.code:                        (eql 'compiler::macro (slot-value (cdr fenv) 'compiler::function-or-macro)))
                       (slot-value environment 'compiler::fenv))))
  
  #+lispworks
  (defmethod lexical-functions ((environment lexical::environment))
    (mapcar #'car (slot-value environment 'lexical::functions)))
  
  
negative.code: 
  ;;;; ** LispWorks
  
  #+(and lispworks macosx)
  (defmethod environment-p ((environment system::augmented-environment))
    t)
  
  #+(and lispworks macosx)
  (defmethod lexical-variables ((environment system::augmented-environment))
    (mapcar (lambda (venv)
              (slot-value venv 'compiler::name))
  