projects
/
lml2.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d302201
)
r5298: *** empty log message ***
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sat, 12 Jul 2003 18:16:37 +0000
(18:16 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sat, 12 Jul 2003 18:16:37 +0000
(18:16 +0000)
downloads.lisp
patch
|
blob
|
history
diff --git
a/downloads.lisp
b/downloads.lisp
index a106f3a62b7fc88cb8932978b6b97decad68d3a7..f6a0bf4aafb6a4b1ce5f4d984890a4a627080581 100644
(file)
--- a/
downloads.lisp
+++ b/
downloads.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Aug 2002
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Aug 2002
;;;;
-;;;; $Id: downloads.lisp,v 1.
5 2003/07/12 17:58:50
kevin Exp $
+;;;; $Id: downloads.lisp,v 1.
6 2003/07/12 18:13:42
kevin Exp $
;;;;
;;;; This file, part of LML2, is Copyright (c) 2000-2003 by Kevin Rosenberg.
;;;; Rights of modification and redistribution are in the LICENSE file.
;;;;
;;;; This file, part of LML2, is Copyright (c) 2000-2003 by Kevin Rosenberg.
;;;; Rights of modification and redistribution are in the LICENSE file.
@@
-24,9
+24,9
@@
;;files.sort()
(mapcar (lambda (f) (print-file f dl-data)) files))
;;files.sort()
(mapcar (lambda (f) (print-file f dl-data)) files))
-(defun strip-dl-base (file base
-name
)
+(defun strip-dl-base (file base)
(let ((fdir (pathname-directory file))
(let ((fdir (pathname-directory file))
- (bdir (pathname-directory base
-name
)))
+ (bdir (pathname-directory base)))
(make-pathname
:name (pathname-name file)
:type (pathname-type file)
(make-pathname
:name (pathname-name file)
:type (pathname-type file)
@@
-41,7
+41,7
@@
(basename (namestring
(make-pathname :name (pathname-name file)
:type (pathname-type file))))
(basename (namestring
(make-pathname :name (pathname-name file)
:type (pathname-type file))))
- (dl-name (strip-dl-base file (dl-data-
nam
e dl-data)))
+ (dl-name (strip-dl-base file (dl-data-
bas
e dl-data)))
(sig-path (concatenate 'string (namestring file) ".asc")))
(when (plusp (length basename))
(with-open-file (strm file :direction :input)
(sig-path (concatenate 'string (namestring file) ".asc")))
(when (plusp (length basename))
(with-open-file (strm file :direction :input)