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