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@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)