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

[Frode Vatvedt Fjeld]

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

Modified Files:
	compiler.lisp 
Log Message:
Removed some dead code.

Date: Fri Apr 16 19:38:41 2004
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.49 movitz/compiler.lisp:1.50
--- movitz/compiler.lisp:1.49	Fri Apr 16 15:20:46 2004
+++ movitz/compiler.lisp	Fri Apr 16 19:38:41 2004
@@ -8,7 +8,7 @@
 ;;;; Created at:    Wed Oct 25 12:30:49 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: compiler.lisp,v 1.49 2004/04/16 19:20:46 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.50 2004/04/16 23:38:41 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -5222,25 +5222,9 @@
        ((typep binding 'symbol-macro-binding)
 	(compiler-call #'compile-form-unprotected
 	  :forward all
-	  :form (funcall *movitz-macroexpand-hook* (macro-binding-expander (movitz-binding form env)) form env)))
+	  :form (funcall *movitz-macroexpand-hook*
+			 (macro-binding-expander (movitz-binding form env)) form env)))
        (t (compiler-call #'compile-dynamic-variable :forward all))))))
-
-#+old-compiler
-(defun ensure-local-binding (binding funobj env)
-  "Make sure that we have a binding that is local to funobj."
-  (if (eq funobj (binding-funobj binding))
-      binding
-    (let* ((function-env (find-function-env env funobj))
-	   (local-binding (make-instance 
-			      (ecase (function-env-extent function-env)
-				(:indefinite-extent 'indefinite-borrowed-binding)
-				;; XXXX
-				(:dynamic-extent 'indefinite-borrowed-binding)
-				(:lexical-extent 'lexical-borrowed-binding))
-			    :name (binding-name binding)
-			    :target-binding binding)))
-      (movitz-environment-add-binding function-env (binding-name binding) local-binding)
-      local-binding)))
 
 (define-compiler compile-lexical-variable (&form variable &result-mode result-mode &env env)
   (let ((binding (movitz-binding variable env)))