anchor.diff:    (with-open-file (stream (concatenate 'string
                                          (get-cletris-directory)
                                          "scores.txt")
  -                          :direction :input)
  +                          :direction :input
  +                          :if-does-not-exist nil)
  +    (when (streamp stream)
         (loop for line = (read-line stream nil nil)
  -         until (null line)
  -         as data = (cl-ppcre:split ";" line)
  -         collect (list (parse-integer (first data))
  -                       (second data)
  -                       (third data)))))
  +            until (null line)
  +            as data = (cl-ppcre:split ";" line)
  +            collect (list (parse-integer (first data))
  +                          (second data)
  +                          (third data))))))
   
   
   (defun write-scores (scores)
  
positive.code: ;; Copyright (C) 2014  Nicolas Lamirault
  
  ;; This program is free software: you can redistribute it and/or modify
  ;; it under the terms of the GNU General Public License as published by
  
negative.code:   "Get the home directory of Cletris."
    (let ((directory (concatenate 'string
                                  (sb-ext:posix-getenv "HOME")
                                  "/.config/cletris")))
      (ensure-directories-exist directory)))
  
  
  