Changeset 8774


Ignore:
Timestamp:
Mar 13, 2008, 3:49:38 PM (11 years ago)
Author:
gz
Message:

fix compiler warnings

Location:
trunk/source/cocoa-ide/hemlock/src
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/hemlock/src/search1.lisp

    r8428 r8774  
    462462         (setf (search-pattern-search-function old)
    463463               #'insensitive-find-string-once-backward-method)
    464          (nreverse folded-string)))
     464         (setq folded-string (nreverse folded-string))))
    465465      (let ((hashed-string (search-hash-string folded-string)))
    466466        (setf (string-insensitive-hashed-string old) hashed-string
     
    578578         (setf (search-pattern-search-function old)
    579579               #'sensitive-find-string-once-backward-method)
    580          (nreverse string)))
     580         (setq string (nreverse string))))
    581581      (setf (string-sensitive-string old) string)
    582582      (setf (string-sensitive-jumps old)
  • trunk/source/cocoa-ide/hemlock/src/symbol-completion.lisp

    r8428 r8774  
    251251                     (dabbrev-match-p context (symbol-name sym)))
    252252            (vector-push-extend sym seq))))
    253       (stable-sort seq #'(lambda (s1 s2)
    254                            (and (or (boundp s1) (fboundp s1))
    255                                 (not (or (boundp s2) (fboundp s2))))))
     253      (setq seq
     254            (stable-sort seq #'(lambda (s1 s2)
     255                                 (and (or (boundp s1) (fboundp s1))
     256                                      (not (or (boundp s2) (fboundp s2)))))))
    256257      ;; Now convert to strings - and downcase for inserting in buffer.
    257258      (dotimes (i (length seq))
Note: See TracChangeset for help on using the changeset viewer.