r2799: *** empty log message ***

[lml.git] / stdsite.cl

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