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: 	option-value
  	default-value)))
  
  (defun write-row (input-subsequence output-stream last-row-p)
    (let ((row-length (length input-subsequence)))
      (format output-stream "    ")
      (loop
         for byte-value across input-subsequence
         for i from 1
         do (format output-stream
  		  "0x~2,'0X~[~:;,~]"
  		  byte-value
  		  (- row-length i)))
      (unless last-row-p
        (format output-stream ",~%"))
      
      ;; This can turn into tri-graphs... fix later
      ;; (format output-stream " /* ")
      ;; (loop
      ;;    for byte-value across input-subsequence
      ;;    for i from 1
      ;;    do (format output-stream
      ;; 		  "~A~[ */~%~:;~]"
      ;; 		  (if (graphic-char-p (code-char byte-value))
      ;; 		      (code-char byte-value)
      ;; 		      #\.)
      ;; 		  (- row-length i)))
      (when last-row-p
        (format output-stream "};~%"))))
  
  
  (defun write-c-array (input-sequence output-stream num-columns)
    (let ((num-bytes (length input-sequence)))
  
negative.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:exit :code 0))
  
  (defun main ()
    (let ((argv #+sbcl sb-ext:*posix-argv*))
  