Ignore:
Timestamp:
Aug 4, 2008, 9:44:06 AM (11 years ago)
Author:
gb
Message:

Don't assume that (uvref istruct 0) is a symbol; try to use accessors
instead, and hope that I caught everything ...

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/l0-pred.lisp

    r10282 r10309  
    374374        (if (= x-type y-type)
    375375            (if (= x-type target::subtag-istruct)
    376                 (and (let* ((structname (%svref x 0)))
    377                        (and (eq structname (%svref y 0))
     376                (and (let* ((structname (istruct-cell-name (%svref x 0))))
     377                       (and (eq structname (istruct-cell-name (%svref y 0)))
    378378                            (or (eq structname 'pathname)
    379379                                (eq structname 'logical-pathname)))
Note: See TracChangeset for help on using the changeset viewer.