Changeset 12784


Ignore:
Timestamp:
Sep 8, 2009, 2:55:59 PM (10 years ago)
Author:
gfoy
Message:

Remove-duplicates in alpha list.

File:
1 edited

Legend:

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

    r12738 r12784  
    7979         (letter-array (make-array letter-array-length :initial-element nil))
    8080         miscellaneous first-letter index)
    81     (dolist (sym (apply #'append *cl-symbol-lists*))
     81    (dolist (sym (remove-duplicates (apply #'append *cl-symbol-lists*) :test #'eq))
    8282      (setq first-letter (elt (string sym) 0))
    8383      (setq index (position first-letter *ABCs* :test #'char-equal))
Note: See TracChangeset for help on using the changeset viewer.