anchor.diff:  
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;; unility function and macro
  -(declaim (inline fixnumize write-bigendian-uint4 read-bigendian-uint4))
  +(declaim (inline fixnumize))
   (defun fixnumize (n)
     (ldb (byte #.(integer-length most-positive-fixnum) 0) n))
   
  
positive.code:   `(locally
      (declare #+SBCL (sb-ext:muffle-conditions sb-ext:compiler-note))
      ,@body))
  
  (defun write-bigendian-uint4 (uint out)
    (loop FOR offset FROM 24 DOWNTO 0 BY 8
          DO (write-byte (ldb (byte 8 offset) uint) out)))
  
  (defun read-bigendian-uint4 (in)
    (loop FOR offset FROM 24 DOWNTO 0 BY 8
          SUM (ash (read-byte in) offset)))
  
  (defmacro a.if (exp then else)
    `(let ((it ,exp))
  
negative.code:            fixnumize
             package-alias
             muffle
             a.if
             nlet
             with-open-output-file
  