Changeset 12889


Ignore:
Timestamp:
08/12/10 20:08:50 (12 years ago)
Author:
ehuelsmann
Message:

Simplify ANALYZE-ARGS.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/generic-class-file/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r12887 r12889  
    68706870    (aver (not (memq '&AUX args)))
    68716871
    6872     (when *child-p*
    6873       (when (or (memq '&KEY args)
    6874                 (memq '&OPTIONAL args)
    6875                 (memq '&REST args))
    6876         (setf *using-arg-array* t)
    6877         (setf *hairy-arglist-p* t)
    6878         (return-from analyze-args
    6879           (descriptor +lisp-object+ +lisp-object-array+)))
    6880       (return-from analyze-args
    6881         (cond ((<= arg-count call-registers-limit)
    6882                (apply #'descriptor +lisp-object+
    6883                       (lisp-object-arg-types arg-count)))
    6884               (t (setf *using-arg-array* t)
    6885                  (setf (compiland-arity compiland) arg-count)
    6886                  (descriptor +lisp-object+ +lisp-object-array+)))))
    68876872    (when (or (memq '&KEY args)
    68886873              (memq '&OPTIONAL args)
    68896874              (memq '&REST args))
    6890       (setf *using-arg-array* t)
    6891       (setf *hairy-arglist-p* t)
    6892       (return-from analyze-args (descriptor +lisp-object+ +lisp-object-array+)))
     6875      (setf *using-arg-array* t
     6876            *hairy-arglist-p* t)
     6877      (return-from analyze-args
     6878          (descriptor +lisp-object+ +lisp-object-array+)))
     6879
    68936880    (cond ((<= arg-count call-registers-limit)
    68946881           (apply #'descriptor +lisp-object+
    6895                       (lisp-object-arg-types (length args))))
    6896           (t
    6897            (setf *using-arg-array* t)
    6898            (setf (compiland-arity compiland) arg-count)
    6899            (descriptor +lisp-object+ +lisp-object-array+)))))
     6882                  (lisp-object-arg-types arg-count)))
     6883          (t (setf *using-arg-array* t)
     6884             (setf (compiland-arity compiland) arg-count)
     6885             (descriptor +lisp-object+ +lisp-object-array+)))))
    69006886
    69016887(defmacro with-open-class-file ((var class-file) &body body)
Note: See TracChangeset for help on using the changeset viewer.