[movitz-cvs] CVS movitz

[ffjeld]

Update of /project/movitz/cvsroot/movitz
In directory clnet:/tmp/cvs-serv13388

Modified Files:
	asm-x86.lisp 
Log Message:
Disengage warning.


--- /project/movitz/cvsroot/movitz/asm-x86.lisp	2008/02/23 22:35:10	1.30
+++ /project/movitz/cvsroot/movitz/asm-x86.lisp	2008/02/25 23:33:43	1.31
@@ -6,7 +6,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: asm-x86.lisp,v 1.30 2008/02/23 22:35:10 ffjeld Exp $
+;;;; $Id: asm-x86.lisp,v 1.31 2008/02/25 23:33:43 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -288,11 +288,11 @@
 	     (let ((bit-pos (* 8 (1- (ceiling (integer-length pos) 8)))))
 	       (if (not (plusp bit-pos))
 		   (progn
-		     (unless (or (eq nil decoder)
-				 (eq nil (svref table pos))
-				 (equal decoder (svref table pos)))
-		       (warn "Redefining disassembler for ~@[~(~A~) ~]opcode #x~X from ~{~S ~}to ~{~S~^ ~}."
-			     operator-mode opcode (svref table pos) decoder))
+		     #+(or) (unless (or (eq nil decoder)
+					(eq nil (svref table pos))
+					(equal decoder (svref table pos)))
+			      (warn "Redefining disassembler for ~@[~(~A~) ~]opcode #x~X from ~{~S ~}to ~{~S~^ ~}."
+				    operator-mode opcode (svref table pos) decoder))
 		     (setf (svref table pos) decoder))
 		   (set-it (or (svref table (ldb (byte 8 bit-pos) pos))
 			       (setf (svref table (ldb (byte 8 bit-pos) pos))