Changeset 12738

Timestamp:

Sep 2, 2009, 7:40:22 AM (15 years ago)

Author:

Glen Foy

Message:

Added alpha sort.

File:

• trunk/source/contrib/foy/cl-documentation-cm/cl-documentation-2.lisp (modified) (1 diff)

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

@@ -86 +86 @@
         (push sym miscellaneous)))
     (dotimes (idx letter-array-length)
-      (let ((submenu-item (make-submenu-item (elt *ABCs* idx) (coerce (aref letter-array idx) 'list))))
+      (let ((submenu-item (make-submenu-item (elt *ABCs* idx) 
+                                             (sort (coerce (aref letter-array idx) 'list)
+                                                   #'string> :key #'string))))
         (#/addItem: menu submenu-item)))
     (when miscellaneous