From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Mon, 14 Oct 2002 03:45:58 +0000 (+0000)
Subject: r3001: *** empty log message ***
X-Git-Tag: v2.5.5~138
X-Git-Url: http://git.kpe.io/?p=lml.git;a=commitdiff_plain;h=4cb2a48870afc9f2dda44a46881ba8a249566120

r3001: *** empty log message ***
---

diff --git a/debian/changelog b/debian/changelog
index b51607d..1ea2b6e 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-lml (1.4-1) unstable; urgency=low
+
+  * Minor cleanup in downloads.lisp
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Sun, 13 Oct 2002 21:45:18 -0600
+
 cl-lml (1.3-1) unstable; urgency=low
 
   * Add type declarations 
diff --git a/downloads.lisp b/downloads.lisp
index 68362f7..4ad88c1 100644
--- a/downloads.lisp
+++ b/downloads.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2002
 ;;;;
-;;;; $Id: downloads.lisp,v 1.3 2002/10/14 03:27:38 kevin Exp $
+;;;; $Id: downloads.lisp,v 1.4 2002/10/14 03:44:09 kevin Exp $
 ;;;;
 ;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -112,8 +112,8 @@
     (let ((title (car sects))
 	  (value (cadr sects)))
       (if (consp title)
-	  (mapcar #'display-sections sects)
-	(if (consp  value)
+	  (map nil #'display-sections sects)
+	(if (consp value)
 	    (progn
 	      (print-sect-title title)
 	      (incf *section-indent*)
@@ -128,7 +128,7 @@
 	(*base-name* pkg-base)
 	(*signed* nil))
     (display-header pkg-name ftp-url)
-    (mapcar #'display-sections sects)
+    (map nil #'display-sections sects)
     (display-footer)))
 
 (defun std-dl-page (pkg-name pkg-base ftp-base ftp-url)