anchor.diff:        
   ;;;; ** LispWorks
   
  -#+(and lispworks macosx)
  +#+(or lispworks5 lispworks6)
   (defmethod environment-p ((environment system::augmented-environment))
     t)
   
  -#+(and lispworks macosx)
  +#+(or lispworks5 lispworks6)
   (defmethod lexical-variables ((environment system::augmented-environment))
     (mapcar (lambda (venv)
               (slot-value venv 'compiler::name))
  
positive.code: 				  (system::make-symbol-macro def))))
  
  
  #+(and lispworks (or win32 linux))
  (defmethod augment-with-variable ((env lexical::environment) var)
    (harlequin-common-lisp:augment-environment
     env :variable (list var)))
  
  #+(and lispworks (or win32 linux))
  (defmethod augment-with-function ((env lexical::environment) fun)
    (harlequin-common-lisp:augment-environment
     env :function (list fun)))
  
  #+(and lispworks (or win32 linux))
  (defmethod augment-with-macro ((env lexical::environment) mac def)
    (harlequin-common-lisp:augment-environment
     env :macro (list (list mac def))))
  
  #+(and lispworks (or win32 linux))
  (defmethod augment-with-symbol-macro ((env lexical::environment) symmac def)
    (harlequin-common-lisp:augment-environment
     env :symbol-macro (list (list symmac def))))
  
negative.code:                        (slot-value venv 'compiler::kind))
                       (slot-value environment 'compiler::venv))))
  
  #+(or lispworks5 lispworks6)
  (defmethod lexical-functions ((environment compiler::environment))
    (mapcar #'car
            (remove-if (lambda (fenv)
  