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

r3000: *** empty log message ***
---

diff --git a/downloads.lisp b/downloads.lisp
index 9fc9ac8..68362f7 100644
--- a/downloads.lisp
+++ b/downloads.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2002
 ;;;;
-;;;; $Id: downloads.lisp,v 1.2 2002/10/14 03:25:05 kevin Exp $
+;;;; $Id: downloads.lisp,v 1.3 2002/10/14 03:27:38 kevin Exp $
 ;;;;
 ;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -24,7 +24,6 @@
 (defvar *ftp-url*)
 (defvar *base-name*)
 (defvar *section-indent* 0)
-(declaim (type (fixnum *section-indent*)))
 (defvar *signed* nil)
 
 (defun list-files (files)
diff --git a/utils.lisp b/utils.lisp
index ed1f6a2..37fb99d 100644
--- a/utils.lisp
+++ b/utils.lisp
@@ -1,4 +1,4 @@
-;;; $Id: utils.lisp,v 1.1 2002/09/30 10:26:43 kevin Exp $
+;;; $Id: utils.lisp,v 1.2 2002/10/14 03:28:22 kevin Exp $
 ;;;;
 ;;;; General purpose utilities
 
@@ -40,9 +40,7 @@
       (multiple-value-bind (sec min hr day mon year dow daylight-p zone)
 	  (decode-universal-time ut)
 	(declare (ignore daylight-p zone))
-	(format nil "~[Mon~;Tue~;Wed~;Thu~;Fri~;Sat~;Sun~], ~
-~d ~[Jan~;Feb~;Mar~;Apr~;May~;Jun~;Jul~;Aug~;Sep~;Oct~;Nov~;Dec~] ~d ~
-~2,'0d:~2,'0d:~2,'0d" 
+	(format nil "~[Mon~;Tue~;Wed~;Thu~;Fri~;Sat~;Sun~], ~d ~[Jan~;Feb~;Mar~;Apr~;May~;Jun~;Jul~;Aug~;Sep~;Oct~;Nov~;Dec~] ~d ~2,'0d:~2,'0d:~2,'0d" 
 		dow
 		day
 		(1- mon)