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