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

[Frode Vatvedt Fjeld]

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

Modified Files:
	special-operators.lisp 
Log Message:
Removed the bogus dynamic-unwind primitive-function and special operator.

Date: Sat Nov 13 17:10:15 2004
Author: ffjeld

Index: movitz/special-operators.lisp
diff -u movitz/special-operators.lisp:1.43 movitz/special-operators.lisp:1.44
--- movitz/special-operators.lisp:1.43	Fri Nov 12 15:51:44 2004
+++ movitz/special-operators.lisp	Sat Nov 13 17:10:14 2004
@@ -8,7 +8,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Nov 24 16:22:59 2000
 ;;;;                
-;;;; $Id: special-operators.lisp,v 1.43 2004/11/12 14:51:44 ffjeld Exp $
+;;;; $Id: special-operators.lisp,v 1.44 2004/11/13 16:10:14 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -993,16 +993,6 @@
 				cloaked-code
 				;; pop the result back
 				`((:popl ,protected-register)))))))))))))
-
-(define-special-operator muerte::dynamic-unwind (&form form)
-  (let ((unwind-count (second form)))
-    (check-type unwind-count (integer 0 *))
-    (if (zerop unwind-count)
-	(compiler-values ())
-      (compiler-values ()
-	:returns :nothing
-	:code (append (make-immediate-move unwind-count :ecx)
-		      `((:globally (:call (:edi (:edi-offset dynamic-unwind))))))))))
 
 (define-special-operator muerte::with-local-env (&all all &form form)
   (destructuring-bind ((local-env) sub-form)