anchor.diff:  		   (override '(#x66))
   		   (t '()))
   	   ,@(opcodes desc)
  -	   ,@(encode-immediate (value opnd) size)))))))
  +	   ,@(encode-integer (value opnd) size)))))))
   
   (defmethod encode-instruction-1 (desc (opnd gpr-operand))
     (destructuring-bind (type size) (first (operands desc))
  
positive.code: 	       (ash (opcode-extension desc) 3)
  	       (mod (code-number opnd) 8))))))))
  
  	       
  
negative.code: ;;; the representation of VALUE in a little-endian encoding, i.e., the
  ;;; bytes in the resulting list are ordered from least to most
  ;;; significant.
  (defun encode-integer (value size)
    (loop for position from 0 by 8
  	repeat size
  	collect (ldb (byte 8 position) value)))
  