[movitz-cvs] CVS update: movitz/compiler.lisp - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

9 Jun 2004

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv8436
Modified Files:
    compiler.lisp 
Log Message:
Removed some debris.
Date: Wed Jun  9 15:55:37 2004
Author: ffjeld
Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.65 movitz/compiler.lisp:1.66

--- movitz/compiler.lisp:1.65	Wed Jun  9 13:24:29 2004
+++ movitz/compiler.lisp	Wed Jun  9 15:55:37 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.65 2004/06/09 20:24:29 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.66 2004/06/09 22:55:37 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -470,9 +470,6 @@
    		     (type-specifier-encode 'list)))))
    	 binding-usage))))
   toplevel-funobj)
-
-(defmethod (setf borrowed-bindings) :before (x y)
-  (break "About to set borroweds for ~S to ~S." y x))
(defun resolve-borrowed-bindings (toplevel-funobj)
   "For <funobj>'s code, for every non-local binding used we create

    