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

fix compiler warnings

File:
1 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)
Note: See TracChangeset for help on using the changeset viewer.