Ignore:
Timestamp:
Mar 29, 2010, 5:33:21 PM (9 years ago)
Author:
gz
Message:

core-string-equal => core-string=

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/qres/ccl/library/core-files.lisp

    r13549 r13566  
    981981                       while (core-consp names-ptr)
    982982                       as name-ptr = (core-car names-ptr)
    983                        thereis (core-string-equal name-ptr name))
     983                       thereis (core-string= name-ptr name))
    984984              do (return pkg-ptr))
    985985      (and error (error "No package named ~s" name))))
     
    10231023                       until (eql sym 0)
    10241024                       do (when (and (core-symbolp sym)
    1025                                      (core-string-equal (core-q sym target::symbol.pname) symbol-name))
     1025                                     (core-string= (core-q sym target::symbol.pname) symbol-name))
    10261026                            (return (if (eq sym (nil-relative-symbol-address 'nil))
    10271027                                      (target-nil-value)
Note: See TracChangeset for help on using the changeset viewer.