+cl-lml (1.0.1-1) unstable; urgency=low
+
+ * Changle FILE-LENGTH function to use stream.
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Sun, 15 Sep 2002 21:09:30 -0600
+
cl-lml (1.0.0-1) unstable; urgency=low
* Initial Release (closes: 161007)
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Aug 2002
;;;;
-;;;; $Id: downloads.cl,v 1.1 2002/09/16 01:13:49 kevin Exp $
+;;;; $Id: downloads.cl,v 1.2 2002/09/16 03:09:00 kevin Exp $
;;;;
;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(subseq (length bdir) (length fdir) fdir))))))
(defun print-file (file)
- (let ((size (round (/ (file-length file) 1024)))
+ (let ((size 0)
(modtime (date-string (file-write-date file)))
(basename (namestring
(make-pathname :name (pathname-name file)
:type
(concatenate 'string
(pathname-type file) ".asc"))))
+ (with-open-file (strm file :direction :input)
+ (setq size (round (/ (file-length strm) 1024))))
(lml-print "<a href=\"~A~A\">~A</a>" *ftp-url* ftp-name basename)
(lml-print "<span class=\"modtime\">")
(lml-print " (~A, <b>~:D <span style=\"font-size:90%;\">KB</span></b>)</span>" modtime size)