anchor.diff:                       (= nreq (arg-info-number-required arg-info))
                        (= nopt (arg-info-number-optional arg-info))
                        (eq (or keysp restp) (arg-info-key/rest-p arg-info)))
  -          (error 'reply-lambda-list-conflict :lambda-list lambda-list :message msg))
  +          (error 'reply-lambda-list-conflict :lambda-list lambda-list :message message))
           (setf (arg-info-lambda-list arg-info) (if lambda-list-p
                                                     lambda-list
                                                     (create-msg-lambda-list lambda-list))
  
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: ;;; 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 message args.
  (defun finalize-message (message)
    (let ((name (message-name message)))
      (when (and (fboundp name)
  