anchor.diff:                         (macro-function (car fenv) environment))
                        (slot-value environment 'compiler::fenv))))
   
  -#+(and lispworks (or win32 linux))
  +#+lispworks4
   (defmethod environment-p ((environment lexical::environment))
     t)
   
  -#+(and lispworks (or win32 linux))
  +#+lispworks4
   (defun lexical-runtime-p (value)
     (and (symbolp value)
          (eq (symbol-package value) nil)))
   
  -#+(and lispworks (or win32 linux))
  +#+lispworks4
   (defmethod lexical-variables ((environment lexical::environment))
     (loop for candidate in (slot-value environment 'lexical::variables)
           if (lexical-runtime-p (cdr candidate))
           collect (car candidate)))
   
  -#+(and lispworks (or win32 linux))
  +#+lispworks4
   (defmethod lexical-functions ((environment lexical::environment))
     (loop for candidate in (slot-value environment 'lexical::functions)
           if (lexical-runtime-p (cdr candidate))
           collect (car candidate)))
   
   
  -#+(and lispworks (or win32 linux))
  +#+lispworks4
   (defmethod lexical-symbol-macros ((environment lexical::environment))
     (loop for candidate in (slot-value environment 'lexical::variables)
           unless (lexical-runtime-p (cdr candidate))
           collect candidate))
   
  -#+(and lispworks (or win32 linux))
  +#+lispworks4
   (defmethod lexical-macros ((environment lexical::environment))
     (loop for candidate in (slot-value environment 'lexical::functions)
           unless (lexical-runtime-p (cdr candidate))
  
positive.code:                        (eql 'compiler::macro (slot-value (cdr fenv) 'compiler::function-or-macro)))
                       (slot-value environment 'compiler::fenv))))
  
  #+(and lispworks macosx)
  (defmethod environment-p ((environment compiler::environment))
    t)
  
  #+(and lispworks macosx)
  (defmethod lexical-variables ((environment compiler::environment))
    (mapcar (lambda (venv)
              (slot-value venv 'compiler::name))
  
negative.code:                        (slot-value venv 'compiler::kind))
                       (slot-value environment 'compiler::venv))))
  
  #+(or lispworks5 lispworks6)
  (defmethod lexical-functions ((environment system::augmented-environment))
    (mapcar #'car
            (remove-if (lambda (fenv)
  