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