X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=stdsite.cl;h=306a65fc2cd8baefa9038c61262821a7079ec118;hb=086d8ddd1fd16532a59740c9cd0843970339632f;hp=8fab1455329c5f2981500ddabaf73c69f2c307af;hpb=8bf0cbe6076bc4530f165b41735d33d90e2c541a;p=lml.git

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))