Corrected a typo (thanks to didi @ irc://irc.freenode.org/#lisp).

Pascal J. Bourguignon [2012-04-22 14:12]
Corrected a typo (thanks to didi @ irc://irc.freenode.org/#lisp).
Filename
p09.lisp
diff --git a/p09.lisp b/p09.lisp
index db727aa..d5bef85 100644
--- a/p09.lisp
+++ b/p09.lisp
@@ -20,7 +20,7 @@ P09 (**) Pack consecutive duplicates of list elements into sublists.
 (defun group (list)
   (labels ((group-run (element group list)
              (cond
-               ((null list) (list (cons element result)))
+               ((null list) (list (cons element group)))
                ((eql element (first list)) (group-run element (cons element group) (rest list)))
                (t (cons (cons element group) (group-run (first list) '() (rest list)))))))
     (if (null list)
ViewGit