[mcclim-cvs] CVS update: mcclim/Apps/Listener/dev-commands.lisp

[Max-Gerd Retzlaff]

Update of /project/mcclim/cvsroot/mcclim/Apps/Listener
In directory common-lisp.net:/tmp/cvs-serv8918

Modified Files:
	dev-commands.lisp 
Log Message:
SORT-PATHNAMES changed: For pathnames that represent directories
(first (last (pathname-directory pathname))) will be the :KEY to
SORT them.

Date: Thu Oct 13 17:15:24 2005
Author: mretzlaff

Index: mcclim/Apps/Listener/dev-commands.lisp
diff -u mcclim/Apps/Listener/dev-commands.lisp:1.30 mcclim/Apps/Listener/dev-commands.lisp:1.31
--- mcclim/Apps/Listener/dev-commands.lisp:1.30	Wed Aug 31 07:50:37 2005
+++ mcclim/Apps/Listener/dev-commands.lisp	Thu Oct 13 17:15:24 2005
@@ -1029,7 +1029,10 @@
 
 (defun sort-pathnames (list sort-by)
   (case sort-by            ; <--- FIXME
-    ('name  (sort list #'string-lessp :key #'file-namestring))
+    ('name  (sort list #'string-lessp
+                  :key (lambda (pathname)
+                         (or (file-namestring pathname)
+                             (first (last (pathname-directory pathname)))))))
     (t list)))
 
 (defun split-sort-pathnames (list group-dirs sort-by)