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

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

Ignore-this: 20cf116df585ffedfbe63ce7a4092249

Patched by Ilya Perminov

darcs-hash:bea8d0e59cdf7c2afeb1f8e8b4f6dca255eeb469
parent 5808770b
......@@ -3174,7 +3174,10 @@ e.g. (DSETQ (VALUES (a . b) nil c) form)"
expr
(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
......
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