[movitz-cvs] CVS ia-x86

[ffjeld]

Update of /project/movitz/cvsroot/ia-x86
In directory clnet:/tmp/cvs-serv19291

Modified Files:
	instr-mov.lisp 
Log Message:
Minor tweaks to printing instruction objects etc. Mostly related to testing the new assembler.


--- /project/movitz/cvsroot/ia-x86/instr-mov.lisp	2004/01/16 11:54:14	1.2
+++ /project/movitz/cvsroot/ia-x86/instr-mov.lisp	2007/12/20 22:42:40	1.3
@@ -9,7 +9,7 @@
 ;;;; Created at:    Thu Jan 27 14:43:05 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: instr-mov.lisp,v 1.2 2004/01/16 11:54:14 ffjeld Exp $
+;;;; $Id: instr-mov.lisp,v 1.3 2007/12/20 22:42:40 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -248,7 +248,8 @@
 ;;; ----------------------------------------------------------------
 
 (cl:defmethod cl:print-object ((obj mov) stream)
-  (cl:if (cl:and cl:*print-pretty*
+  (cl:if (cl:and (cl:not cl:*print-readably*)
+		 cl:*print-pretty*
 		 (cl:= 2 (cl:length (instruction-operands obj))))
       (cl:progn
 	(cl:format stream