[armedbear-cvs] r13022 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Thu Nov 11 15:52:32 2010
New Revision: 13022

Log:
Small simplification in MAKE-CONSTRUCTOR arguments.

Patch by: astalla.

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

Modified: trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Thu Nov 11 15:52:32 2010
@@ -793,8 +793,11 @@
 (defun emit-read-from-string (object)
   (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
                               :flags '(:public)))
@@ -915,9 +918,7 @@
 
 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))