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

[Frode Vatvedt Fjeld]

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

Modified Files:
	special-operators.lisp 
Log Message:
Removed a couple of useless warnings.

Date: Sun Mar 28 11:20:05 2004
Author: ffjeld

Index: movitz/special-operators.lisp
diff -u movitz/special-operators.lisp:1.15 movitz/special-operators.lisp:1.16
--- movitz/special-operators.lisp:1.15	Fri Feb 20 21:04:50 2004
+++ movitz/special-operators.lisp	Sun Mar 28 11:20:05 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.15 2004/02/21 02:04:50 ffjeld Exp $
+;;;; $Id: special-operators.lisp,v 1.16 2004/03/28 16:20:05 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -958,15 +958,16 @@
 						  :protect-registers ,(cons protected-register
 									    protect-registers))))))))
 	     (t ;; just put the (singular) result of form1 on the stack..
-	      (when (not (typep cover-returns 'keyword))
-		;; if it's a (non-modified) lexical-binding, we can do better..
-		(warn "Covering non-register ~S" cover-returns))
-	      (when (type-specifier-singleton (type-specifier-primary cover-type))
-		(warn "Covering constant ~S"
-		      (type-specifier-singleton cover-type)))  
+;;;	      (when (not (typep cover-returns 'keyword))
+;;;		;; if it's a (non-modified) lexical-binding, we can do better..
+;;;		(warn "Covering non-register ~S" cover-returns))
+;;;	      (when (type-specifier-singleton (type-specifier-primary cover-type))
+;;;		(warn "Covering constant ~S"
+;;;		      (type-specifier-singleton cover-type)))  
 	      (let ((protected-register (case cover-returns
 					  ((:ebx :ecx :edx) cover-returns)
 					  (t :eax))))
+		#+ignore
 		(when (>= 2 (length cloaked-code))
 		  (warn "simple-cloaking for ~S: ~{~&~S~}" cover-returns cloaked-code))
 		(setf (stack-used cloaked-env) 1)