r3000: *** empty log message ***

diff --git a/downloads.lisp b/downloads.lisp
index 9fc9ac8292026ead8406946790c3ff9b6db14ada..68362f76b4be0160b974004cc0cb42db404e91c4 100644 (file)
--- 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 ed1f6a2b5799684cf9099378d1730cee1dc328fc..37fb99d642b430acd88fac08e14d0337c7825330 100644 (file)
--- 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)