/[cmucl]/src/compiler/tn.lisp
ViewVC logotype

Diff of /src/compiler/tn.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by hallgren, Fri Mar 12 15:18:43 1993 UTC revision 1.18 by wlott, Thu Aug 19 23:19:24 1993 UTC
# Line 295  Line 295 
295        (let ((entry (aref constants i)))        (let ((entry (aref constants i)))
296          (when (and (consp entry)          (when (and (consp entry)
297                     (eq (car entry) kind)                     (eq (car entry) kind)
298                     (eq (cdr entry) info))                     (or (eq (cdr entry) info)
299                           (and (consp info)
300                                (equal (cdr entry) info))))
301            (setf (tn-offset res) i)            (setf (tn-offset res) i)
302            (return))))            (return))))
303    

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

  ViewVC Help
Powered by ViewVC 1.1.5