X-Git-Url: http://git.kpe.io/?p=lml2.git;a=blobdiff_plain;f=downloads.lisp;h=855505b0a948a85c69dab5825836388052e7c6b7;hp=a106f3a62b7fc88cb8932978b6b97decad68d3a7;hb=5c64ed6c6024c426b9922f5d3d6f92134fe91cf5;hpb=d302201764fe7e8c5d5db203ffb41ea24c1ec9ec diff --git a/downloads.lisp b/downloads.lisp index a106f3a..855505b 100644 --- a/downloads.lisp +++ b/downloads.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Aug 2002 ;;;; -;;;; $Id: downloads.lisp,v 1.5 2003/07/12 17:58:50 kevin Exp $ +;;;; $Id$ ;;;; ;;;; 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)) -(defun strip-dl-base (file base-name) +(defun strip-dl-base (file base) (let ((fdir (pathname-directory file)) - (bdir (pathname-directory base-name))) + (bdir (pathname-directory base))) (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)))) - (dl-name (strip-dl-base file (dl-data-name dl-data))) + (dl-name (strip-dl-base file (dl-data-base dl-data))) (sig-path (concatenate 'string (namestring file) ".asc"))) (when (plusp (length basename)) (with-open-file (strm file :direction :input) @@ -60,7 +60,8 @@ (lml-princ "