anchor.diff:                ,@macro-body)
               ,expr ,clauses
               :default-keys ',default-keys
  -            :error ',error))))))
  +            :error ',error
  +            :macro-name ',name))))))
   
   (defun clauses+default (clauses &key (default-keys '(t otherwise)))
     (let ((default-clause-tails
  
positive.code:                 ;; `expand-case-macro/tagbody'. (It might even be
                  ;; worth using different expansions on different
                  ;; Lisps.)
                  (expand-case-macro/flet cont expr-temp clauses default)))))))
  
  (defun expand-case-macro/common (clauses &key jump)
    (check-type jump function)
    (labels ((rec (clauses dest-acc clauses-acc)
               (if (null clauses)
  
negative.code:                        (rec rest-clauses
                              dest-acc
                              (cons (first clauses) clauses-acc))
                         (let* ((sym (gensym (format nil "~a-~a" macro-name 'fn)))
                                (dest (cons sym body))
                                (body (list (funcall jump sym))))
                           (rec rest-clauses
  