[Openmcl-cvs-notifications] r12738 - /trunk/source/contrib/foy/cl-documentation-cm/cl-documentation-2.lisp

[gfoy at clozure.com]

Author: gfoy
Date: Wed Sep  2 10:40:22 2009
New Revision: 12738

Log:
Added alpha sort.

Modified:
    trunk/source/contrib/foy/cl-documentation-cm/cl-documentation-2.lisp

Modified: trunk/source/contrib/foy/cl-documentation-cm/cl-documentation-2.l=
isp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/contrib/foy/cl-documentation-cm/cl-documentation-2.lisp (o=
riginal)
+++ trunk/source/contrib/foy/cl-documentation-cm/cl-documentation-2.lisp We=
d Sep  2 10:40:22 2009
@@ -85,7 +85,9 @@
         (push sym (aref letter-array index))
         (push sym miscellaneous)))
     (dotimes (idx letter-array-length)
-      (let ((submenu-item (make-submenu-item (elt *ABCs* idx) (coerce (are=
f letter-array idx) 'list))))
+      (let ((submenu-item (make-submenu-item (elt *ABCs* idx) =

+                                             (sort (coerce (aref letter-ar=
ray idx) 'list)
+                                                   #'string> :key #'string=
))))
         (#/addItem: menu submenu-item)))
     (when miscellaneous
       (#/addItem: menu (#/separatorItem ns:ns-menu-item))    =