Changeset 13022


Ignore:
Timestamp:
11/11/10 20:52:32 (11 years ago)
Author:
ehuelsmann
Message:

Small simplification in MAKE-CONSTRUCTOR arguments.

Patch by: astalla.

File:
1 edited

Legend:

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

    r13021 r13022  
    794794  (emit-constructor-lambda-list object))
    795795
    796 (defun make-constructor (super lambda-name args)
     796(defun make-constructor (class)
    797797  (let* ((*compiler-debug* nil)
     798         (super (class-file-superclass class))
     799         (lambda-name (abcl-class-file-lambda-name class))
     800         (args (abcl-class-file-lambda-list class))
    798801         ;; We don't normally need to see debugging output for constructors.
    799802         (method (make-method :constructor :void nil
     
    916919The compiler calls this function to indicate it doesn't want to
    917920extend the class any further."
    918   (class-add-method class (make-constructor (class-file-superclass class)
    919                                             (abcl-class-file-lambda-name class)
    920                                             (abcl-class-file-lambda-list class)))
     921  (class-add-method class (make-constructor class))
    921922  (finalize-class-file class)
    922923  (write-class-file class stream))
Note: See TracChangeset for help on using the changeset viewer.