[movitz-cvs] CVS update: movitz/compiler.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv22622

Modified Files:
	compiler.lisp 
Log Message:
Changed slightly the compiler protocol such that
register-function-code-size is called also for internal functions.

Date: Thu Jan 27 01:00:27 2005
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.130 movitz/compiler.lisp:1.131
--- movitz/compiler.lisp:1.130	Tue Jan 25 05:42:39 2005
+++ movitz/compiler.lisp	Thu Jan 27 01:00:25 2005
@@ -8,7 +8,7 @@
 ;;;; Created at:    Wed Oct 25 12:30:49 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: compiler.lisp,v 1.130 2005/01/25 13:42:39 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.131 2005/01/27 09:00:25 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -169,7 +169,6 @@
     (let ((old-size (gethash hash-name (function-code-sizes *image*))))
       (cond
        ((not old-size))
-       ((eq name :anonymous-lambda))
        ((not *warn-function-change-p*))
        ((> new-size old-size)
 	(warn "~S grew from ~D to ~D bytes." name old-size new-size))
@@ -234,10 +233,9 @@
 			      "~&;; While Movitz compiling ~S in ~A:"
 			      name muerte.cl:*compile-file-pathname*)))))
     (with-retries-until-true (retry-funobj "Retry compilation of ~S." name)
-      (register-function-code-size
-       (make-compiled-funobj-pass2
-	(make-compiled-funobj-pass1 name lambda-list declarations
-				    form env top-level-p :funobj funobj))))))
+      (make-compiled-funobj-pass2
+       (make-compiled-funobj-pass1 name lambda-list declarations
+				   form env top-level-p :funobj funobj)))))
 
 (defun make-compiled-funobj-pass1 (name lambda-list declarations form env top-level-p
 				   &key funobj)
@@ -709,9 +707,9 @@
 	do (let ((sub-funobj (function-binding-funobj function-binding)))
 	     ;; (warn "USage: ~S => ~S" sub-funobj usage)
 	     (case (car (movitz-funobj-name sub-funobj))
-	       (:anonymous-lambda
+	       ((muerte.cl:lambda)
 		(setf (movitz-funobj-name sub-funobj)
-		  (list :anonymous-lambda
+		  (list 'lambda
 			(movitz-funobj-name toplevel-funobj)
 			(post-incf sub-funobj-index)))))
 	     (loop for borrowed-binding in (borrowed-bindings sub-funobj)
@@ -793,7 +791,7 @@
     (t (complete-funobj-default funobj)))
   (loop for (sub-function-binding) on (sub-function-binding-usage funobj) by #'cddr
       do (complete-funobj (function-binding-funobj sub-function-binding)))
-  funobj)
+  (register-function-code-size funobj))
 
 (defun complete-funobj-1req1opt (funobj)
   (assert (= 2 (length (function-envs funobj))))