Changeset 12738


Ignore:
Timestamp:
Sep 2, 2009, 2:40:22 PM (10 years ago)
Author:
gfoy
Message:

Added alpha sort.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/contrib/foy/cl-documentation-cm/cl-documentation-2.lisp

    r12735 r12738  
    8686        (push sym miscellaneous)))
    8787    (dotimes (idx letter-array-length)
    88       (let ((submenu-item (make-submenu-item (elt *ABCs* idx) (coerce (aref letter-array idx) 'list))))
     88      (let ((submenu-item (make-submenu-item (elt *ABCs* idx)
     89                                             (sort (coerce (aref letter-array idx) 'list)
     90                                                   #'string> :key #'string))))
    8991        (#/addItem: menu submenu-item)))
    9092    (when miscellaneous
Note: See TracChangeset for help on using the changeset viewer.