#-quicklisp
(let ((quicklisp-init (merge-pathnames "dev/quicklisp/setup.lisp"
                                       (user-homedir-pathname))))
  (when (probe-file quicklisp-init)
    (load quicklisp-init)))

(defparameter systems
 '(:cl-ppcre
   :cl-fswatch
   :cffi
   :trivial-dump-core
   :named-readtables
   :rstring
   :curth))

(dolist (s systems)
  (asdf:load-system s))

(use-package :org.euandre.curth)
(set-dispatch-macro-character #\# #\f #'org.euandre.curth:|dispatch-f-reader|)

(dolist (p (cl-ppcre:split ":" (uiop:getenv "LIBRARY_PATH")))
  (pushnew (str p "/") cffi:*foreign-library-directories* :test #'equal))

(defun save ()
  (trivial-dump-core:dump-image (uiop:getenv "LISP_IMAGE_PATH")))

(define-symbol-macro r
  (progn
    (load (uiop:getenv "LISP_CLI_RC"))
    (values)))