Changeset 11890


Ignore:
Timestamp:
05/17/09 13:16:37 (12 years ago)
Author:
vvoutilainen
Message:

Don't repeat class names in p2-compiland, convert cond to if.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r11889 r11890  
    81978197
    81988198    (setf (class-file-superclass class-file)
    8199           (cond
    8200             ((and *child-p* *closure-variables*) +lisp-compiled-closure-class+)
    8201             (*hairy-arglist-p* +lisp-compiled-closure-class+)
    8202             (t +lisp-primitive-class+)))
     8199          (if (or *hairy-arglist-p*
     8200      (and *child-p* *closure-variables*))
     8201        +lisp-compiled-closure-class+
     8202      +lisp-primitive-class+))
    82038203
    82048204    (setf (class-file-lambda-list class-file) args)
Note: See TracChangeset for help on using the changeset viewer.