anchor.diff:    (:import-from "CLOS"
                   clos::class-slots
                   clos::slot-definition-name)
  -  #-(or Allegro CMUCL Lispworks CLISP)
  +  #-(or Allegro CMU Lispworks CLISP)
     (error "Unsupported implementation.")
     (:export "CLASS-SLOTS"
              "SLOT-DEFINITION-NAME"
              "FINALIZE-INHERITANCE"
              "CLASS-FINALIZED-P"))
  -
  -;;; accommodate implementations whose CLOS is really PCL, like CMUCL...
  -
  -(when (and (not (find-package 'clos))
  -           (find-package 'pcl))
  -  (rename-package (find-package 'pcl) 'pcl
  -                  `(clos ,@(package-nicknames 'pcl))))
  
positive.code: ;;; File: pkgdecl.lisp
  ;;; Description: Package declarations for LISA.
  
  ;;; $Id: pkgdecl.lisp,v 1.14 2001/04/17 19:10:19 youngde Exp $
  
  (in-package "CL-USER")
  
  (defpackage "LISA"
    (:use "COMMON-LISP")
  
negative.code: (defpackage "LISA.REFLECT"
    (:use "COMMON-LISP")
    (:nicknames "REFLECT")
    #+(or Allegro CMU)
    (:import-from "CLOS"
                  "CLASS-SLOTS"
                  "SLOT-DEFINITION-NAME"
  