anchor.diff:    	  (setf (elf-section-data section) (make-array (elf-section-size section) :element-type 'unsigned-byte))
     	  (read-sequence (elf-section-data section) stream))))
   
  -(defun read-elf-file ()
  +(defun elf-file-read (filename)
     (declare (optimize (speed 0) (safety 3) (debug 3)))
   
  -  (with-open-file (stream "c:/temp2/score_connection.o" :element-type '(unsigned-byte 8))
  +  (with-open-file (stream filename :element-type '(unsigned-byte 8))
     	(let ((elf-file (make-elf-file))
     		  (header (read-header stream)))
   
  
positive.code: ;
  ;
  
  (defun read-string (stream length)
    (let ((string (make-string length)))
      (dotimes (i length)
        (setf (char string i) (code-char (read-byte stream))))
      string))
  
  ;
  ;
  ;
  
  (defun read-half (stream)
    (let* ((l (read-byte stream))
           (r (read-byte stream)))
  
negative.code: (defun read-off (stream) (read-word stream))
  (defun read-addr (stream) (read-word stream))
  
  (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))))
  
  ;
  ;
  ;
  ;
  
  
  
  
  ;
  ;
  