r5297: *** empty log message ***
authorKevin M. Rosenberg <kevin@rosenberg.net>
Sat, 12 Jul 2003 17:58:50 +0000 (17:58 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Sat, 12 Jul 2003 17:58:50 +0000 (17:58 +0000)
downloads.lisp

index c08183b..a106f3a 100644 (file)
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2002
 ;;;;
-;;;; $Id: downloads.lisp,v 1.4 2003/07/12 17:58:19 kevin Exp $
+;;;; $Id: downloads.lisp,v 1.5 2003/07/12 17:58:50 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.
@@ -63,7 +63,7 @@
   (lml-format "<a style=\"padding-left:20pt;\" href=\"~A\">~A</a>" url url))
 
 (defun display-footer (dl-data)
-  (when (dl-data-signed)
+  (when (dl-data-signed dl-data)
     (lml-princ "<h3>GPG Public Key</h3>")
     (lml-princ "Use this <a href=\"https://www.b9.com/kevin.gpg.asc\">key</a> to verify file signtatures"))
   (lml-princ "</div>"))