anchor.diff:          (table (get-package-table package)))
       (cond ((null table) nil)
             (t
  -           (maphash #'(lambda (key val)
  -                        (declare (ignore val))
  -                        (push key l))
  +           (maphash (lambda (key val)
  +                      (declare (ignore val))
  +                      (push key l))
                       table)
              (sort l #'string< :key #'string)))))
   
  
positive.code: (defmacro assert-true (form &rest extras)
    (expand-assert :result form form t extras))
  
  
  (defun expand-assert (type form body expected extras &key (test #'eql))
    `(internal-assert ,type ',form
                      #'(lambda () ,body)
                      #'(lambda () ,expected)
                      ,(expand-extras extras)
                      ,test))
  
  
negative.code:              (*pass-count* 0)
               (error-count 0))
          (handler-bind 
              ((error (lambda (e)
                        (let ((*print-escape* nil))
                          (setq error-count 1)         
                          (format t "~&    ~S: ~W" *test-name* e))
                        (if (use-debugger-p e) e (go exit)))))
            (funcall thunk)
            (show-summary *test-name* *test-count* *pass-count*))
          exit
  