;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Aug 2002
;;;;
-;;;; $Id: downloads.lisp,v 1.2 2003/07/12 17:54:05 kevin Exp $
+;;;; $Id: downloads.lisp,v 1.4 2003/07/12 17:58:19 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.
(display-sections sect dl-data))
(if (consp value)
(progn
- (print-sect-title title)
+ (print-sect-title title dl-data)
(incf (dl-data-indent dl-data))
(display-sections value dl-data)
(decf (dl-data-indent dl-data)))
:url dl-url
:name pkg-base
:signed nil)))
- (display-header pkg-name dl-url dl-data)
+ (display-header pkg-name dl-url)
(dolist (sect sects)
(display-sections sect dl-data))
(display-footer dl-data)))