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

diff --git a/debian/changelog b/debian/changelog
index ffd1be5a613de484c2e24dde641ef066b97c8b6d..579b28ce355db4490de0dbf36afe532a03c10dd7 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-kmrcl (1.58-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Sun, 19 Oct 2003 17:22:14 -0600
+

 cl-kmrcl (1.57-1) unstable; urgency=low
 
   * New upstream
 cl-kmrcl (1.57-1) unstable; urgency=low
 
   * New upstream

diff --git a/io.lisp b/io.lisp
index 4dea295f5e789d6dacb1c2eb86fe99c155d71487..292af3c68382cc23da07f6603a1d89ee13a84c72 100644 (file)
--- a/io.lisp
+++ b/io.lisp
@@ -9,7 +9,7 @@
 ;;;;
 ;;;; $Id$
 ;;;;
 ;;;;
 ;;;; $Id$
 ;;;;

-;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
+;;;; This file, part of KMRCL, is Copyright (c) 2002-2003 by Kevin M. Rosenberg

 ;;;;
 ;;;; KMRCL users are granted the rights to distribute and use this software
 ;;;; as governed by the terms of the Lisp Lesser GNU Public License
 ;;;;
 ;;;; KMRCL users are granted the rights to distribute and use this software
 ;;;; as governed by the terms of the Lisp Lesser GNU Public License

diff --git a/listener.lisp b/listener.lisp
index e17f7fc1a09069a5bd21af10b3f2c637056face3..0b31cefd745d2eb174890d541bbb4505d9a3da4a 100644 (file)
--- a/listener.lisp
+++ b/listener.lisp
@@ -8,6 +8,12 @@
 ;;;; Date Started:  Jun 2003
 ;;;;
 ;;;; $Id$
 ;;;; Date Started:  Jun 2003
 ;;;;
 ;;;; $Id$

+;;;;
+;;;; This file, part of KMRCL, is Copyright (c) 2002-2003 by Kevin M. Rosenberg
+;;;;
+;;;; KMRCL users are granted the rights to distribute and use this software
+;;;; as governed by the terms of the Lisp Lesser GNU Public License
+;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.

 ;;;; *************************************************************************
 
 (in-package #:kmrcl)
 ;;;; *************************************************************************
 
 (in-package #:kmrcl)

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 '())
 
 (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))))
 
       ((null pl) alist)
     (setq alist (acons (car pl) (cadr pl) alist))))