anchor.diff:  ;;; Message definition (finally!)
   ;;;
   ;; Finalizing a message sets the function definition of the message to a
  -;; lambda that calls the top-level dispatch function on the msg args.
  +;; lambda that calls the top-level dispatch function on the message args.
   (defun finalize-message (message)
     (let ((name (message-name message)))
       (when (and (fboundp name)
  
positive.code:               (arg-info-keys arg-info) (if lambda-list-p
                                             (if allow-other-keys-p t keywords)
                                             (arg-info-key/rest-p arg-info)))))
      (when new-reply (check-reply-arg-info msg arg-info new-reply))
      arg-info))
  
  (defun check-msg-lambda-list (lambda-list)
    (flet ((check-no-defaults (list)
             (awhen (find-if (complement (rcurry 'typep '(or symbol (cons * null)))) list)
               (error 'message-lambda-list-error :arg it :lambda-list lambda-list))))
  
negative.code: ;; This pair just pretties up the options during macro expansion
  (defmacro defmessage (name lambda-list &rest options)
    `(progn
       (check-message-lambda-list ',lambda-list)
       (ensure-message ',name :lambda-list ',lambda-list
                       ,@(canonize-message-options options))))
  
  