[movitz-cvs] CVS update: movitz/compiler.lisp - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

24 Jul 2004

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

    