2018-11-18 11:52:06 +01:00
|
|
|
;; -*- mode: common-lisp; -*-
|
|
|
|
|
|
2019-02-14 16:25:03 +01:00
|
|
|
;; WARNING: Changing the *print-case* may break some packages, e.g. Mito.
|
|
|
|
|
;; Also see https://www.cliki.net/Case%20sensitivity.
|
|
|
|
|
;; (setf *print-case* :downcase)
|
2018-11-18 11:52:06 +01:00
|
|
|
|
|
|
|
|
;;; 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)))
|
2018-11-22 14:55:59 +01:00
|
|
|
|
|
|
|
|
;; 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))))))
|
2019-06-24 10:11:01 +02:00
|
|
|
|
|
|
|
|
;; Uncomment the following to increase the debug details.
|
|
|
|
|
;; It's often better to do this from the REPL.
|
|
|
|
|
;; (declaim (optimize (speed 0) (space 0) (debug 3)))
|
2019-08-05 11:49:18 +02:00
|
|
|
|
|
|
|
|
;; Uncomment to enable full type checks (should be the default).
|
|
|
|
|
;; (declaim (optimize (or (>= safety 2) (>= safety speed 1))))
|
