;; -*- mode: common-lisp; -*-

;; WARNING: Changing the *print-case* may break some packages, e.g. Mito.
;; Also see https://www.cliki.net/Case%20sensitivity.
;; (setf *print-case* :downcase)

;;; The following lines added by ql:add-to-init-file:
#-quicklisp
(let ((quicklisp-init (merge-pathnames ".quicklisp/setup.lisp"
                                       (user-homedir-pathname))))
  (when (probe-file quicklisp-init)
    (load quicklisp-init)))

;; Some OSes package Lisp compilers in a way that ASDF is not automatically loaded.
(require "asdf")

(let ((guix-profile (format nil "~a/.guix-profile/lib/" (uiop:getenv "HOME"))))
  (when (and (probe-file guix-profile)
             (ignore-errors (asdf:load-system "cffi")))
    (push guix-profile
          (symbol-value (find-symbol (string '*foreign-library-directories*)
                                     (find-package 'cffi))))))