anchor.diff: -;; Copyright (C) 2014  Nicolas Lamirault
  +;; Copyright (C) 2014, 2015  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
  
positive.code:   "Get the home directory of Cletris."
    (let ((directory (concatenate 'string
                                  (sb-ext:posix-getenv "HOME")
                                  "/"
                                  ".cletris/")))
      (ensure-directories-exist directory)))
  
  
  
negative.code:   (with-open-file (stream (concatenate 'string
                                         (get-cletris-directory)
                                         "scores.txt")
                            :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))))))
  
  
  (defun write-scores (scores)
  