anchor.diff:      (setf (mop-class-direct-superclasses class) supers)
       (dolist (superclass supers)
         (push class (mop-class-direct-subclasses superclass))))
  -  (let ((slots (mapcar #'(lambda (slot-properties)
  -                           (apply #'mop-make-direct-slot-definition slot-properties))
  +  (let ((slots (mapcar #'(lambda (mop-slot-properties)
  +                           (apply #'mop-make-direct-slot-definition mop-slot-properties))
                              direct-slots)))
       (setf (mop-class-direct-slots class) slots)
       (dolist (direct-slot slots)
  
positive.code:   (mop-mapappend #'mop-canonicalize-defclass-option options))
  
  ; Stub
  (defun mop-make-instance (class-name &rest all-keys)
    (list class-name all-keys))
  
  (let ((mop-class-table (make-hash-table :test #'eq)))
  
negative.code:   `(list ,@(mapcar #'mop-canonicalize-specializer specializers)))
  
  (defun mop-canonicalize-specializer (specializer)
    `(mop-find-class ',specializer))
  
  (defun mop-parse-defmethod (args)
    (let ((fn-spec (car args))
  