Commit af4db9c0 authored by unknown's avatar unknown
Browse files

If specialised treatment can't produce any messages, fall back on the's arglist.

parent 93ea639b
......@@ -423,13 +423,14 @@ each returning a list of proposed messages.")
(remove-duplicates (loop for locator in *message-locators* append
(funcall locator whole-form))
:from-end t))))
(when messages
(values (make-arglist :key-p t
:keyword-args (loop for message in messages collect
(make-keyword-arg message message nil))
:provided-args nil
:allow-other-keys-p t
:rest 'reference-chain)
nil t)))
nil t))))
;; 9.1. Analyse the current gendl:the form
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment