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)