Commit 5a3a8f64 authored by Attila Lendvai's avatar Attila Lendvai
Browse files

Fix: If both AT BEGINNING and RESULT-TYPE are specified, RESULT-TYPE was ignored.

Ignore-this: 20cf116df585ffedfbe63ce7a4092249

Patched by Ilya Perminov

parent 5808770b
......@@ -3174,7 +3174,10 @@ e.g. (DSETQ (VALUES (a . b) nil c) form)"
(make-application end-operation collect-var expr)))))
(if (eq place 'start)
(return-code :body `((setq ,collect-var ,op-expr)))
(return-code :body `((setq ,collect-var ,op-expr))
:final (unless (eq result-type 'list)
`((setq ,collect-var
(coerce ,collect-var ',result-type)))))
(with-temporary temp-var
;; In the update code, must test if collect-var is null to allow
;; for other clauses to collect into same var. This code
Supports Markdown
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