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

Modified Files: compiler.lisp Log Message: sync

Date: Mon Aug 22 01:30:05 2005 Author: ffjeld

Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.153 movitz/compiler.lisp:1.154 --- movitz/compiler.lisp:1.153 Mon Aug 22 00:06:48 2005 +++ movitz/compiler.lisp Mon Aug 22 01:30:04 2005 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.153 2005/08/21 22:06:48 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.154 2005/08/21 23:30:04 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -6715,7 +6715,7 @@ (let ((x (multiple-value-call #'encoded-integer-types-add (type-specifier-encode type0) (type-specifier-encode type1)))) - ;; (warn "thunked: ~S ~S -> ~S" term0 term1 x) + #+ignore (warn "thunked: ~S ~S -> ~S" term0 term1 x) x)) (list term0 term1) ))))