Changeset 8772


Ignore:
Timestamp:
Mar 13, 2008, 2:48:13 PM (11 years ago)
Author:
gb
Message:

Got carried away.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/apropos.lisp

    r8763 r8772  
    221221              collect `#(,x ,(string-arg (subseq str sortOffset)) ,sortOffset ,displayOffset) into tmpList1
    222222              finally  (return (values `#(,@tmpList1) indentation1))))
    223     (setq TEMPVECTor (sort tmpVector #'(lambda (symPair1 symPair2)
     223    (setq TMPVECTor (sort tmpVector #'(lambda (symPair1 symPair2)
    224224                                         (string-lessp (aref symPair1 1) (aref symPair2 1)))))
    225225    (values tmpVector ; each element is a vector of `#(,sym sortable-string-for-sym)
Note: See TracChangeset for help on using the changeset viewer.