From efc77c08d7063beaf9e0766ccd91b548e17f60f9 Mon Sep 17 00:00:00 2001 From: Adlai Chandrasekhar Date: Sun, 17 Jun 2012 06:31:35 +0300 Subject: [PATCH] Fix bug in UNZIP-ALIST Thanks to Hraban Luyat for pointing this out. --- src/utils.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/utils.lisp b/src/utils.lisp index ddff7a6..45d7ba9 100644 --- a/src/utils.lisp +++ b/src/utils.lisp @@ -14,7 +14,7 @@ (defun unzip-alist (alist) "Returns two fresh lists containing the keys and values of ALIST" - (loop for pair on alist + (loop for pair in alist collect (car pair) into keys collect (cdr pair) into vals finally (return (values keys vals))))