From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Fri, 20 Sep 2002 19:13:51 +0000 (+0000)
Subject: r2799: *** empty log message ***
X-Git-Tag: v2.5.5~151
X-Git-Url: http://git.kpe.io/?a=commitdiff_plain;h=086d8ddd1fd16532a59740c9cd0843970339632f;p=lml.git

r2799: *** empty log message ***
---

diff --git a/debian/changelog b/debian/changelog
index 89a17a2..e13f84e 100644
--- 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 8fab145..306a65f 100644
--- 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))