Another bugfix to UNZIP-ALIST

Looks like this is the behavior expected by PCALL... Who am I to argue with that?
zkat · Jun 17, 2012 · 1bcac34 · 1bcac34
1 parent f577a1c
commit 1bcac34
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/utils.lisp b/src/utils.lisp
@@ -15,8 +15,8 @@
 (defun unzip-alist (alist)
   "Returns two fresh lists containing the keys and values of ALIST"
   (loop for pair in alist
-     collect (car pair) into keys
-     collect (cdr pair) into vals
+     collect (first  pair) into keys
+     collect (second pair) into vals
      finally (return (values keys vals))))
 
 (defun nunzip-alist (alist &aux (keys alist) (vals (car alist)))