mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-21 17:20:38 -07:00
Code Issues Projects Releases Packages Wiki Activity

Fix VALUES declaration processing.

Browse source 
A change to C::SPLIT-VALUES-TYPE got the order reversed.

Fixes #275.
This commit is contained in:
Stas Boukarev 2014-02-23 02:26:53 +04:00 • committed by Philipp Marek
parent e2e53dc679
commit 3f0ce7f7d4
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/cmp/cmptype-arith.lsp
View file

@ -190,7 +190,8 @@
(push typespec optional)
(push typespec required)))))
finally
(return (values required (nreverse optional) rest a-o-k)))))
(return (values (nreverse required) (nreverse optional)
rest a-o-k)))))
(defun-equal-cached values-type-or (t1 t2)
(when (or (eq t2 'T) (equalp t2 '(VALUES &REST T)))