Changeset 9812


Ignore:
Timestamp:
Jun 21, 2008, 9:41:13 PM (11 years ago)
Author:
gb
Message:

Not really sure why HAIRY-EQUAL was not comparing the version slot
of physical pathnames, but it's not the last slot anymore.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/win64/level-0/l0-pred.lisp

    r7724 r9812  
    380380                       (locally
    381381                           (declare (optimize (speed 3) (safety 0)))
    382                          (let* ((x-size (uvsize x)))
    383                            (declare (fixnum x-size))
     382                         (let* ((x-size (uvsize x))
     383                                (skip (if (eq structname 'pathname)
     384                                        %physical-pathname-version
     385                                        -1)))
     386                           (declare (fixnum x-size skip))
    384387                           (when (= x-size (the fixnum (uvsize y)))
    385                              ;; Ignore last (version) slot in physical pathnames.
    386388                             (when (eq structname 'pathname)
    387389                               (decf x-size))
     
    389391                                  ((= i x-size) t)
    390392                               (declare (fixnum i))
    391                                (unless (equal (%svref x i) (%svref y i))
     393                               (unless (or (= i skip)
     394                                           (equal (%svref x i) (%svref y i)))
    392395                                 (return)))))))))))))
    393396
Note: See TracChangeset for help on using the changeset viewer.