Changeset 8679


Ignore:
Timestamp:
Mar 6, 2008, 10:31:53 PM (12 years ago)
Author:
gb
Message:

Don't ignore SORT's result, to avoid (new) compiler warning.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/apropos.lisp

    r2325 r8679  
    221221                               collect `#(,x ,(string-arg (subseq str sortOffset)) ,sortOffset ,displayOffset) into tmpList1
    222222                               finally  (return (values `#(,@tmpList1) indentation1))))
    223     (sort tmpVector #'(lambda (symPair1 symPair2)
    224                        (string-lessp (aref symPair1 1) (aref symPair2 1))))
     223    (setq tmpVeCtOr (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.