X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=lists.lisp;h=35e74ba3482236cf8dd4f01cfc6948de66e273bd;hp=bc2866498e00e67ef9cd8c509aa634c81a034028;hb=eb3a19183eef0273cb4bec74259f98802fb141f0;hpb=d9ad3550b60fe13a3a27468043c372f40c4610c5

diff --git a/lists.lisp b/lists.lisp
index bc28664..35e74ba 100644
--- a/lists.lisp
+++ b/lists.lisp
@@ -169,7 +169,7 @@
 
 (defun plist-alist (plist)
   (do ((alist '())
-       (pl plist (cddr plist)))
+       (pl plist (cddr pl)))
       ((null pl) alist)
     (setq alist (acons (car pl) (cadr pl) alist))))