anchor.diff:                  while (gethash c h)
                   finally (setf (gethash c h) t)
                     (return c))
  -     collect b))
  +     collect (elt list b)))
   
   (defun index-of-max (list)
     (if (arrayp list)
  
positive.code:                     (alist-to-plist value)
                      value))))
  
  (defun hash-list-from-csv (filename &key headers-in-file header-list
                                      (clean-headers t))
    (let* ((rows (cl-csv:read-csv
                  (if (pathnamep filename) filename (pathname filename))))
           (fields (cond
  
negative.code:             (/ (float et) 3600)
              (/ (float rt) 3600)
              (timestamp :time (truncate eta) :format "h:m:s"))))
  
  