Changeset 8911


Ignore:
Timestamp:
Mar 28, 2008, 2:00:47 AM (11 years ago)
Author:
gb
Message:

Move next-method-var records-symbol-info after the rest of the lambda list.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/X86/x862.lisp

    r8860 r8911  
    54785478  (with-x86-local-vinsn-macros (seg vreg xfer)
    54795479    (let* ((stack-consed-rest nil)
     5480           (next-method-var-scope-info nil)
    54805481           (lexprp (if (consp rest) (progn (setq rest (car rest)) t)))
    54815482           (rest-var-bits (and rest (nx-var-bits rest)))
     
    56405641            (@ (setq *x862-tail-label* (backend-get-next-label))))
    56415642          (when method-var
    5642             (x862-seq-bind-var seg method-var x8664::next-method-context))
     5643            (x862-seq-bind-var seg method-var x8664::next-method-context)
     5644            (when *x862-recorded-symbols*
     5645              (setq next-method-var-scope-info (pop *x862-recorded-symbols*))))
    56435646          ;; If any arguments are still in arg_x, arg_y, arg_z, that's
    56445647          ;; because they weren't vpushed in a "simple" entry case and
     
    56645667          (setq *x862-entry-vstack* *x862-vstack*)
    56655668          (setq reserved-lcells (x862-collect-lcells :reserved))
    5666           (x862-bind-lambda seg reserved-lcells req opt rest keys auxen optsupvloc arg-regs lexprp inherited-vars))
     5669          (x862-bind-lambda seg reserved-lcells req opt rest keys auxen optsupvloc arg-regs lexprp inherited-vars)
     5670          (when next-method-var-scope-info
     5671            (push next-method-var-scope-info *x862-recorded-symbols*)))
    56675672        (when method-var (x862-heap-cons-next-method-var seg method-var))
    56685673        (x862-form seg vreg xfer body)
Note: See TracChangeset for help on using the changeset viewer.