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

[Frode Vatvedt Fjeld]

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

Modified Files:
	special-operators.lisp 
Log Message:
Commented out warning thats not really supposed to be there.

Date: Fri Apr 16 06:24:54 2004
Author: ffjeld

Index: movitz/special-operators.lisp
diff -u movitz/special-operators.lisp:1.21 movitz/special-operators.lisp:1.22
--- movitz/special-operators.lisp:1.21	Thu Apr 15 09:06:18 2004
+++ movitz/special-operators.lisp	Fri Apr 16 06:24:54 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.21 2004/04/15 13:06:18 ffjeld Exp $
+;;;; $Id: special-operators.lisp,v 1.22 2004/04/16 10:24:54 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -686,6 +686,7 @@
 			       `((:cmpl :edi ,(single-value-register not-returns))))
 		 :returns :boolean-zf=1)) ; TRUE iff result equal to :edi/NIL.
 	      (otherwise
+	       #+ignore
 	       (warn "unable to deal intelligently with inlined-NOT not-returns: ~S for ~S from ~S"
 		     not-returns not-result-mode (not-values :producer))
 	       (let ((label (make-symbol "not-label")))
@@ -716,7 +717,7 @@
 				     result-mode
 				   (car sub-form-result-mode))
 	as last-form-p = (endp (cdr sub-form))
-				 ;; do (warn "progn rm: ~S" (car sub-form-result-mode))
+			 ;; do (warn "progn rm: ~S" (car sub-form-result-mode))
 	appending
 	  (compiler-values-bind (&code code &returns sub-returns-mode
 				 &functional-p no-sub-side-effects-p