blob: 74cc794b0ba8d3df4233e9b6ba42f7574b8e3daa (
plain) (
blame)
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)))
(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)))
|
