diff options
| author | EuAndreh <eu@euandre.org> | 2023-07-10 08:20:15 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2023-07-10 08:20:15 -0300 |
| commit | 0a18037e471253683bb2b3a8864905f009618bc8 (patch) | |
| tree | 99de33df494f57fdf20e94c8ec05ac7d8623b9b9 /etc/lisp-cli | |
| parent | etc/lisp-cli/init.lisp: Polish with more features (diff) | |
| download | dotfiles-0a18037e471253683bb2b3a8864905f009618bc8.tar.gz dotfiles-0a18037e471253683bb2b3a8864905f009618bc8.tar.xz | |
etc/lisp-cli/init.lisp: Move utilities to :curth itself
Diffstat (limited to 'etc/lisp-cli')
| -rw-r--r-- | etc/lisp-cli/init.lisp | 26 |
1 files changed, 2 insertions, 24 deletions
diff --git a/etc/lisp-cli/init.lisp b/etc/lisp-cli/init.lisp index 74cc794..df7cc23 100644 --- a/etc/lisp-cli/init.lisp +++ b/etc/lisp-cli/init.lisp @@ -4,28 +4,6 @@ (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)) - +(asdf:load-system :curth) (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))) +(named-readtables:in-readtable org.euandre.curth:readtable) |