anchor.diff:  
   
   (defun expand-assert (type form body expected extras &key (test #'eql))
  -  `(internal-assert
  -    ,type ',form #'(lambda () ,body) #'(lambda () ,expected) ,(expand-extras extras), test))
  -  
  +  `(internal-assert ,type ',form
  +                    #'(lambda () ,body)
  +                    #'(lambda () ,expected)
  +                    ,(expand-extras extras)
  +                    ,test))
  +
   (defun expand-error-form (form)
     `(handler-case ,form
        (condition (error) error)))
  
positive.code: ;;; ASSERT macros
  
  (defmacro assert-eq (expected form &rest extras)
   (expand-assert :equal form form expected extras :test #'eq))
  
  (defmacro assert-eql (expected form &rest extras)
   (expand-assert :equal form form expected extras :test #'eql))
  
  (defmacro assert-equal (expected form &rest extras)
   (expand-assert :equal form form expected extras :test #'equal))
  
  (defmacro assert-equalp (expected form &rest extras)
   (expand-assert :equal form form expected extras :test #'equalp))
  
  (defmacro assert-error (condition form &rest extras)
   (expand-assert :error form (expand-error-form form)
                  condition extras))
  
  (defmacro assert-expands (&environment env expansion form &rest extras)
    (expand-assert :macro form 
  
negative.code:   `(let ((*package* (find-package ',package)))
       (run-tests
        ,@(mapcar #'(lambda (test) (find-symbol (symbol-name test) package))
                  tests))))
  
  (defmacro run-tests (&rest names)
    `(run-test-thunks
      (get-test-thunks ,(if (null names) '(get-tests *package*) `',names))))
  
  (defun get-test-thunks (names &optional (package *package*))
    (mapcar #'(lambda (name) (get-test-thunk name package))
            names))
  
  (defun get-test-thunk (name package)
    (assert (get-test-code name package) (name package)
      "No test defined for ~S in package ~S" name package)
    (list name (coerce `(lambda () ,@(get-test-code name)) 'function)))
  
  (defun use-debugger (&optional (flag t))
  