etc/lisp-cli/init.lisp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

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

(defun load-once (p)
  (let ((k (intern
            (concatenate 'string
                         (string :ql/)
                         (string p))
            "KEYWORD")))
    (unless (member k *features*)
      (ql:quickload p :verbose t)
      (pushnew k *features*))
    k))

(mapcar #'load-once
        (list
         :cl-ppcre
         :cffi
         :trivial-dump-core
         :named-readtables
         :rstring))

(mapcar (lambda (p)
          (pushnew (concatenate 'string p "/") cffi:*foreign-library-directories*
                   :test #'equal))
        (cl-ppcre:split ":" (uiop:getenv "LIBRARY_PATH")))

(load-once :cl-fswatch)