[movitz-cvs] CVS update: movitz/compiler.lisp

[Frode Vatvedt Fjeld]

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