anchor.diff:                  (package-classes)))
   
   (defun package-methods ()               ; TODO: Unused.  Remove?
  -  (loop for sym in (package-defined-symbols '(:next) '(:next-user))
  +  (loop for sym in (package-defined-symbols)
           append (ignore-errors
                   (closer-mop:generic-function-methods (symbol-function sym)))))
   
  
positive.code:            (echo-warning "~a is deprecated." ',name)
             ,@body)))))
  
  (defun package-defined-symbols (external-package-designators &optional user-package-designators)
    "Return the list of all external symbols interned in EXTERNAL-PACKAGE-DESIGNATORS
  and all (possibly unexported) symbols in USER-PACKAGE-DESIGNATORS."
    (let ((symbols))
  
negative.code:     symbols))
  
  (defun package-variables ()
    "Return the list of variable symbols in Next-related-packages."
    (delete-if (complement #'boundp) (package-defined-symbols)))
  
  (defun package-functions ()
    "Return the list of function symbols in Next-related packages."
    (delete-if (complement #'fboundp) (package-defined-symbols)))
  
  (defun package-classes ()
    "Return the list of class symbols in Next-related-packages."
    (delete-if (complement (alex:rcurry #'find-class nil)) (package-defined-symbols)))
  
  (defclass slot ()
    ((name :initarg :name
  