Permalink
Browse files

Another bugfix to UNZIP-ALIST

Looks like this is the behavior expected by PCALL...
Who am I to argue with that?
  • Loading branch information...
1 parent f577a1c commit 1bcac34044cd8ebdadcfe254426c78a813d37977 @adlai adlai committed Jun 17, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/utils.lisp
View
@@ -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)))

0 comments on commit 1bcac34

Please sign in to comment.