Changeset 8763


Ignore:
Timestamp:
Mar 13, 2008, 6:28:02 AM (11 years ago)
Author:
gb
Message:

Don't ignore SORT's return value (even though we're sorting a vector
and probably understand the side-effects in this case.)

File:
1 edited

Legend:

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

    r2325 r8763  
    208208  ;;; and calculate the maximum indent
    209209  (multiple-value-bind (tmpVector indentation)
    210                        (let (sortOffset
    211                              displayOffset
    212                              str)
    213                          (loop for x in thelist do
    214                            (multiple-value-setq (str sortOffset displayOffset)
    215                                     (if search-string
    216                                       (find-str-in-sym search-string x)
    217                                       (find-sym-alpha-part           x)))
     210      (let (sortOffset
     211            displayOffset
     212            str)
     213        (loop for x in thelist do
     214              (multiple-value-setq (str sortOffset displayOffset)
     215                (if search-string
     216                  (find-str-in-sym search-string x)
     217                  (find-sym-alpha-part           x)))
    218218                           
    219219                           
    220                                maximize displayOffset into indentation1
    221                                collect `#(,x ,(string-arg (subseq str sortOffset)) ,sortOffset ,displayOffset) into tmpList1
    222                                finally  (return (values `#(,@tmpList1) indentation1))))
    223     (sort tmpVector #'(lambda (symPair1 symPair2)
    224                        (string-lessp (aref symPair1 1) (aref symPair2 1))))
     220              maximize displayOffset into indentation1
     221              collect `#(,x ,(string-arg (subseq str sortOffset)) ,sortOffset ,displayOffset) into tmpList1
     222              finally  (return (values `#(,@tmpList1) indentation1))))
     223    (setq TEMPVECTor (sort tmpVector #'(lambda (symPair1 symPair2)
     224                                         (string-lessp (aref symPair1 1) (aref symPair2 1)))))
    225225    (values tmpVector ; each element is a vector of `#(,sym sortable-string-for-sym)
    226226            indentation)))
Note: See TracChangeset for help on using the changeset viewer.