r5127: *** empty log message ***

diff --git a/downloads.lisp b/downloads.lisp
index ba8b853881f012a965e6a6bcdd5a21e424a810d3..bd260e773315b762a63ba095bd5045b07c8a1ebe 100644 (file)
--- a/downloads.lisp
+++ b/downloads.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2002
 ;;;;
-;;;; $Id: downloads.lisp,v 1.10 2003/06/07 22:46:04 kevin Exp $
+;;;; $Id: downloads.lisp,v 1.11 2003/06/15 13:49:42 kevin Exp $
 ;;;;
 ;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -80,14 +80,24 @@
     (when (>= (length name) len-base-name)
       (string= name *base-name* :end1 len-base-name :end2 len-base-name))))
 
+(defun match-base-name-latest? (name)
+  (let* ((latest (concatenate 'string *base-name* "-latest"))
+        (len-latest (length latest)))
+    (when (>= (length name) len-latest)
+      (string= name latest :end1 len-latest :end2 len-latest))))
+
 (defun filter-against-base (files)
   (delete-if-not #'(lambda (f) (match-base-name? (pathname-name f))) files))
 
+(defun filter-latest (files)
+  (delete-if #'(lambda (f) (match-base-name-latest? (pathname-name f))) files))
+
 (defun sort-pathnames (list)
   (sort list #'(lambda (a b) (string< (namestring a) (namestring b)))))
 
 (defun display-one-section (title pat)
-  (let ((files (sort-pathnames (filter-against-base (directory pat)))))
+  (let ((files (sort-pathnames (filter-latest
+                               (filter-against-base (directory pat))))))
     (when files
       (print-sect-title title)
       (lml-princ "<div style=\"padding-left: 20pt;\">")