anchor.diff:             "FIND-DIRECT-SUPERCLASSES"
              "CLASS-ALL-SUPERCLASSES"))
   
  -;;; This macro is courtesy of Paul Werkowski. A very nice idea. I modified it
  -;;; slightly, replacing the extended LOOP originally used in EXTERNALS-OF with
  -;;; what you see here...
  +;;; This macro is courtesy of Paul Werkowski. A very nice idea.
   
   (defmacro define-lisa-lisp ()
     (flet ((externals-of (pkg)
  -           (let ((symbols (list)))
  -             (do-external-symbols (symbol pkg symbols)
  -               (push symbol symbols)))))
  +           (loop for s being each external-symbol in pkg collect s)))
       (let* ((lisa-externs (externals-of "LISA"))
              (lisa-shadows (intersection (package-shadowing-symbols "LISA")
                                          lisa-externs))
  
positive.code:                 "CURRENT-ENGINE" "WITH-INFERENCE-ENGINE"
                  "MAKE-INFERENCE-ENGINE" "GET-NAME" "RULE" "ASSERT-FROM-STRING"
                  "=>" "DEFFACTS" "*SHOW-LISA-WARNINGS*" "UNDEFRULE" "RETRIEVE"
                  "FORGET-QUERY" "INITIAL-FACT" "WITH-SIMPLE-QUERY")) 
  
  (defpackage "LISA.MULTIPROCESSING"
    (:use "COMMON-LISP")
  
negative.code:            "USE-DEFAULT-ENGINE" "CURRENT-ENGINE" "WITH-INFERENCE-ENGINE"
             "MAKE-INFERENCE-ENGINE" "GET-NAME" "RULE" "ASSERT-FROM-STRING" "=>"
             "DEFFACTS" "*SHOW-LISA-WARNINGS*" "UNDEFRULE" "RETRIEVE"
             "FORGET-QUERY" "DEFAULT" "INITIAL-FACT" "WITH-SIMPLE-QUERY" "WALK")
    (:shadow "ASSERT"))
  
  (defpackage "LISA-USER"
  