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

[Frode Vatvedt Fjeld]

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

Modified Files:
	compiler.lisp 
Log Message:
Minor edit.

Date: Fri Jul 23 18:32:06 2004
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.84 movitz/compiler.lisp:1.85
--- movitz/compiler.lisp:1.84	Fri Jul 23 09:42:38 2004
+++ movitz/compiler.lisp	Fri Jul 23 18:32:06 2004
@@ -8,7 +8,7 @@
 ;;;; Created at:    Wed Oct 25 12:30:49 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: compiler.lisp,v 1.84 2004/07/23 16:42:38 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.85 2004/07/24 01:32:06 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -6161,7 +6161,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)
+		  ;; (warn "thunked: ~S ~S -> ~S" term0 term1 x)
 		  x))
 	      (list term0 term1)
 	      ))))