anchor.diff:  	(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))
  
positive.code: 
  ; structs 
  
  (defstruct elf-header
      ident
  
negative.code: 	link
  	info
  	addralign
  	entsize
  	data)
  
  (defstruct 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)
  
  ;
  ;
  