anchor.diff:                collect line into lines
                 finally (return (string-to-ints (concat-strings lines))))))
   
  +;; needs to be turned into a macro
  +(defun get-row (board index)
  +  "Returns the actual row."
  +
  +  (aref (board-rows board) index))
  +
  +(defun get-col (board index)
  +  "Returns the actual column."
  +
  +  (aref (board-cols board) index))
  +
  +(defun get-box (board index)
  +  "Returns the actual box."
  +
  +  (aref (board-boxes board) index))
  +
   (defmacro aset (array subscript value)
     `(setf (aref ,array , subscript) ,value))
  
positive.code:        finally (return (mapcar #'parse-integer ints))))
  
  (defun read-puzzle (fname)
    (log:trace "entry")
    (with-open-file (s fname :direction :input)
             (loop for line = (read-line s nil nil)
  
negative.code:              (format s "~a" item))))))
  
  (defun string-to-ints (string)
    "Converts a string to a list of single digit ints."
  
    (log:trace "entry")
    (loop for c across string
  