[movitz-cvs] CVS update: movitz/special-operators-cl.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	special-operators-cl.lisp 
Log Message:
Removed dead code.

Date: Fri Nov 12 15:39:04 2004
Author: ffjeld

Index: movitz/special-operators-cl.lisp
diff -u movitz/special-operators-cl.lisp:1.31 movitz/special-operators-cl.lisp:1.32
--- movitz/special-operators-cl.lisp:1.31	Thu Nov 11 20:26:06 2004
+++ movitz/special-operators-cl.lisp	Fri Nov 12 15:39:04 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Fri Nov 24 16:31:11 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: special-operators-cl.lisp,v 1.31 2004/11/11 19:26:06 ffjeld Exp $
+;;;; $Id: special-operators-cl.lisp,v 1.32 2004/11/12 14:39:04 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -1130,10 +1130,7 @@
 								'dynamic-variable-uninstall))))
 			(:locally (:movl :edx (:edi (:edi-offset dynamic-env))))
 			(:popl :edx)	; number of bindings
-			(:leal (:esp (:edx 4)) :esp))
-		      #+ignore
-		      `((:popl :edx)	; pop address of first binding's tail
-			(:locally (:popl (:edi (:edi-offset dynamic-env))))))))))
+			(:leal (:esp (:edx 4)) :esp)))))))
 
 (define-special-operator labels (&all forward &form form &env env &funobj funobj)
   (destructuring-bind (labels-specs &body declarations-and-body)