X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=lists.lisp;h=35e74ba3482236cf8dd4f01cfc6948de66e273bd;hb=3c0c56d3c9f641e1c07534d55db2577287ef885f;hp=674a5d76b22d9977aff797b61e0d71d1b55d73bd;hpb=61100bfd2f0176c743db058160316a59441ce352;p=kmrcl.git

diff --git a/lists.lisp b/lists.lisp
index 674a5d7..35e74ba 100644
--- a/lists.lisp
+++ b/lists.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: lists.lisp,v 1.10 2003/08/12 06:37:53 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -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))))