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

[Frode Vatvedt Fjeld]

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

Modified Files:
	special-operators.lisp 
Log Message:
Commented out some experimental code for 'not' that's probably no good.

Date: Wed Apr 14 19:20:25 2004
Author: ffjeld

Index: movitz/special-operators.lisp
diff -u movitz/special-operators.lisp:1.19 movitz/special-operators.lisp:1.20
--- movitz/special-operators.lisp:1.19	Tue Apr 13 09:07:46 2004
+++ movitz/special-operators.lisp	Wed Apr 14 19:20:24 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.19 2004/04/13 13:07:46 ffjeld Exp $
+;;;; $Id: special-operators.lisp,v 1.20 2004/04/14 23:20:24 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -665,21 +665,21 @@
 	      (#.(append +boolean-modes+ '(:boolean-branch-on-true :boolean-branch-on-false))
 		 (compiler-values (not-values)
 		   :returns (complement-boolean-result-mode not-returns)))
-	      ((:eax :function :multiple-values :ebx :edx)
-	       (case result-mode
-		 ((:eax :ebx :ecx :edx :function :multiple-values)
-		  (compiler-values (not-values)
-		    :code (append (not-values :code)
-				  `((:cmpl :edi ,(single-value-register not-returns))
-				    (:sbbl :ecx :ecx)
-				    (:cmpl ,(1+ (image-nil-word *image*))
-					   ,(single-value-register not-returns))
-				    (:adcl 0 :ecx)))
-		    :returns '(:boolean-ecx 1 0)))
-		 (t (compiler-values (not-values)
-		      :code (append (not-values :code)
-				    `((:cmpl :edi ,(single-value-register not-returns))))
-		      :returns :boolean-zf=1))))
+;;;	      ((:eax :function :multiple-values :ebx :edx)
+;;;	       (case result-mode
+;;;		 ((:eax :ebx :ecx :edx :function :multiple-values)
+;;;		  (compiler-values (not-values)
+;;;		    :code (append (not-values :code)
+;;;				  `((:cmpl :edi ,(single-value-register not-returns))
+;;;				    (:sbbl :ecx :ecx)
+;;;				    (:cmpl ,(1+ (image-nil-word *image*))
+;;;					   ,(single-value-register not-returns))
+;;;				    (:adcl 0 :ecx)))
+;;;		    :returns '(:boolean-ecx 1 0)))
+;;;		 (t (compiler-values (not-values)
+;;;		      :code (append (not-values :code)
+;;;				    `((:cmpl :edi ,(single-value-register not-returns))))
+;;;		      :returns :boolean-zf=1))))
 	      ((:eax :function :multiple-values :ebx :ecx :edx)
 	       (compiler-values (not-values)
 		 :code (append (not-values :code)