anchor.diff:  
   ; structs 
  +
  +(defconstant +null+ (code-char 0))
   
   (defstruct elf-header
       ident
  
positive.code: 	(setf (elf-header-shnum header) (read-half stream))
  	(setf (elf-header-shstrndx header) (read-half stream)) header))
  
  ;
  ;
  ;
  ;
  
  (defun read-section-header (stream)
    (let ((header (make-elf-section)))
    	(setf (elf-section-name header) (read-word stream))
  
negative.code: ;
  ;
  ;
  
  
  (defun read-null-terminated-ascii (in)
    (with-output-to-string (s)
      (loop for char = (code-char (read-byte in))
        until (char= char +null+) do (write-char char s))))
  
  ;
  ;
  ; this code can be very simplified
  
  (defun read-header (stream)
    (let ((header (make-elf-header)))
  