Changeset 13022

Timestamp:

11/11/10 20:52:32 (13 years ago)

Author:

ehuelsmann

Message:

Small simplification in MAKE-CONSTRUCTOR arguments.

Patch by: astalla.

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp (modified) (2 diffs)

trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

@@ -794 +794 @@
   (emit-constructor-lambda-list object))
 
-(defun make-constructor (super lambda-name args)
+(defun make-constructor (class)
   (let* ((*compiler-debug* nil)
+         (super (class-file-superclass class))
+         (lambda-name (abcl-class-file-lambda-name class))
+         (args (abcl-class-file-lambda-list class))
          ;; We don't normally need to see debugging output for constructors.
          (method (make-method :constructor :void nil
@@ -916 +919 @@
 The compiler calls this function to indicate it doesn't want to
 extend the class any further."
-  (class-add-method class (make-constructor (class-file-superclass class)
-                                            (abcl-class-file-lambda-name class)
-                                            (abcl-class-file-lambda-list class)))
+  (class-add-method class (make-constructor class))
   (finalize-class-file class)
   (write-class-file class stream))