anchor.diff:  	(with-open-file (output-stream output-filename :direction :output :if-exists :supersede)
   	  (write-c-array (read-stream-into-array input-stream) output-stream num-columns)))))
     t)
  -	
   
   (defun print-usage-and-exit (program-name)
     (format t "usage: ~A --input=FILE --output=FILE [--columns=NUM]~%" program-name)
  
positive.code:   (format t "    -i|--input FILE    Input filename~%")
    (format t "    -o|--output FILE   Output filename~%")
    (format t "    -c|--columns NUM   Number of columns to print (default=8)~%")
    #+sbcl (sb-ext:quit :unix-status 0))
  
  (defun main ()
    (let ((argv #+sbcl sb-ext:*posix-argv*))
  
negative.code: 	option-value
  	default-value)))
  
  (defun bytes-to-hex-string (input-subsequence last-row-p)
    (let ((num-bytes (length input-subsequence)))
      (with-output-to-string (s)
        (loop
  	 for byte-value across input-subsequence
  	 for i from 1
  	 do (format s
  		    ;; 1) print hex 2) if not last byte, print comma
  		    "0x~2,'0X~[~:;,~]"
  		    byte-value
  		    (- num-bytes i)))
        (unless last-row-p
  	(format s ",")))))
  
  (defun bytes-to-comment-string (input-subsequence)
    (with-output-to-string (s)
      (loop
         for byte-value across input-subsequence
         for i from 1
         do (format s
       		  "~A "
       		  (if (graphic-char-p (code-char byte-value))
       		      (code-char byte-value)
       		      #\.)))))
  
  (defun write-row (input-subsequence output-stream last-row-p max-num-columns)
    (let ((bytes-string (bytes-to-hex-string input-subsequence last-row-p))
  	(comment-string (bytes-to-comment-string input-subsequence))
  	(bytes-string-width (* (length "0x00,") max-num-columns))
  	(comment-string-width (* (length "X ") max-num-columns)))
      (format output-stream
  	    "    ~v,A /* ~v,A */~%"
  	    bytes-string-width bytes-string
  	    comment-string-width comment-string)
      (when last-row-p
        (format output-stream "};~%"))))
  
  (defun write-c-array (input-sequence output-stream num-columns)
    (let ((num-bytes (length input-sequence)))
  