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

[gfoy at clozure.com]

Author: gfoy
Date: Tue Sep  8 10:55:59 2009
New Revision: 12784

Log:
Remove-duplicates in alpha list.

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 Tu=
e Sep  8 10:55:59 2009
@@ -78,7 +78,7 @@
   (let* ((letter-array-length (length *ABCs*))
          (letter-array (make-array letter-array-length :initial-element ni=
l))
          miscellaneous first-letter index)
-    (dolist (sym (apply #'append *cl-symbol-lists*))
+    (dolist (sym (remove-duplicates (apply #'append *cl-symbol-lists*) :te=
st #'eq))
       (setq first-letter (elt (string sym) 0))
       (setq index (position first-letter *ABCs* :test #'char-equal))
       (if index