r2799: *** empty log message ***

diff --git a/debian/changelog b/debian/changelog
index 89a17a22f2b3dcaef709e771ec992e003db51ff5..e13f84ef34e1388574644df2ba3ee224bfebad45 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,7 +1,8 @@
 cl-lml (1.0.9-1) unstable; urgency=low
 
   * Change default lml-quite exit status to 0
-
+  * stdsite.cl: check better if source-file exists
+  
  -- Kevin M. Rosenberg <kmr@debian.org>  Fri, 20 Sep 2002 12:46:00 -0600
 
 cl-lml (1.0.8-1) unstable; urgency=low

diff --git a/stdsite.cl b/stdsite.cl
index 8fab1455329c5f2981500ddabaf73c69f2c307af..306a65fc2cd8baefa9038c61262821a7079ec118 100644 (file)
--- a/stdsite.cl
+++ b/stdsite.cl
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2002
 ;;;;
-;;;; $Id: stdsite.cl,v 1.1 2002/09/16 01:13:49 kevin Exp $
+;;;; $Id: stdsite.cl,v 1.2 2002/09/20 19:13:51 kevin Exp $
 ;;;;
 ;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -36,15 +36,14 @@
 
 (defun std-footer (file)
   (div-c "disclaimsec"
-    (let ((ds (date-string 
-              (file-write-date (make-pathname
-                                :defaults *sources-dir*
-                                :type "lml"
-                                :name (pathname-name file))))))
-      (when ds
+    (let ((src-file (make-pathname
+                    :defaults *sources-dir*
+                    :type "lml"
+                    :name (pathname-name file))))       
+      (when (probe-file src-file)
        (div-c "lastmod"
-              (lml-print "Last modified: ~A" ds)))))
-  (lml-load #p"footer.lml_")
+          (lml-print "Last modified: ~A" (date-string (file-write-date src-file))))))
+    (lml-load #p"footer.lml_"))
   (values))