anchor.diff:  
   (defun read-word (stream)
     (let* ((l (read-half stream))
  -	     (r (read-half stream)))
  +       (r (read-half stream)))
       (logior (ash r 16) l)))
   
   (defun read-sword (stream) (read-word stream))
  
positive.code: 
  (defun archive-header-read (stream)
    (let ((header (make-archive-header)))
    	(setf (archive-header-name header) (read-string stream 16))
    	(setf (archive-header-date header) (parse-integer (read-string stream 12)))
    	(setf (archive-header-uid header) (read-seq stream 6))
    	(setf (archive-header-gid header) (read-seq stream 6))
    	(setf (archive-header-mode header) (read-seq stream 8))
    	(setf (archive-header-size header) (parse-integer (read-string stream 10)))
    	(setf (archive-header-fmag header) (read-string stream 2)) 
    	; adjust size
    	(setf (archive-header-size header) (logand (+ (archive-header-size header) 1) (lognot 1)))
    	header))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  
negative.code: 
  (defconstant +null+ (code-char 0))
  
  (defstruct elf-header ident type machine version entry phoff shoff flags ehsize phentsize phnum shentsize shnum shstrndx)
  (defstruct elf-section name-string name type flags addr offset size link info addralign entsize data)
  (defstruct elf-symbol-table name-string name value size info other shndx)
  (defstruct elf-file header sections symbol-table function-table text-offset data-offset rodata-offset bssdata-offset)
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; Helpers
  
  
  (defun read-string (stream length)
  