r8003: Automated commit for Debian build of kmrcl upstream-version-1.58

[kmrcl.git] / lists.lisp

diff --git a/lists.lisp b/lists.lisp
index bc2866498e00e67ef9cd8c509aa634c81a034028..35e74ba3482236cf8dd4f01cfc6948de66e273bd 100644 (file)
--- 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))))