Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: e2e53dc)
Fix VALUES declaration processing.
authorStas Boukarev <stassats@gmail.com>
Sat, 22 Feb 2014 22:26:53 +0000 (02:26 +0400)
committerPhilipp Marek <philipp@marek.priv.at>
Sun, 2 Mar 2014 20:45:45 +0000 (21:45 +0100)
A change to C::SPLIT-VALUES-TYPE got the order reversed.

Fixes #275.

src/cmp/cmptype-arith.lsp patch | blob | blame | history

diff --git a/src/cmp/cmptype-arith.lsp b/src/cmp/cmptype-arith.lsp
index 48b7c19..7416bbe 100644 (file)
--- a/src/cmp/cmptype-arith.lsp
+++ b/src/cmp/cmptype-arith.lsp
@@ -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)))
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)