diff options
| author |  Tom Willemse | 2026-09-03 00:15:56 -0700 |
|---|---|---|
| committer | Tom Willemse | 2026-09-03 00:15:56 -0700 |
| commit | 3fa254fa36d59faa7b596293eab93fcf2ca3a0cb (patch) | |
| tree | 5d94743ac9b5ea8f74168ebd1885956bc4305b60 /sbcl/sbclrc | |
| parent | 0f127e54485953f4c15aa3dcdde2dcd96e3558de (diff) | |
| download | new-dotfiles-3fa254fa36d59faa7b596293eab93fcf2ca3a0cb.tar.gz new-dotfiles-3fa254fa36d59faa7b596293eab93fcf2ca3a0cb.zip | |
sbcl: Rename .sbclrc -> sbclrc
Guix doesn't allow files starting with a . to be used by ‘local-file’.
Diffstat (limited to 'sbcl/sbclrc')
| -rw-r--r-- | sbcl/sbclrc | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/sbcl/sbclrc b/sbcl/sbclrc new file mode 100644 index 0000000..86d47f9 --- /dev/null +++ b/sbcl/sbclrc @@ -0,0 +1,18 @@ +;; -*- mode: lisp; -*- + +;;; The following lines added by ql:add-to-init-file: +#-quicklisp +(let ((quicklisp-init (merge-pathnames ".local/share/quicklisp/setup.lisp" + (user-homedir-pathname)))) + (when (probe-file quicklisp-init) + (load quicklisp-init))) + +;;; Enable linedit, a readline-like module for SBCL. Install through +;;; (ql:quickload "linedit"). +(if (member "--no-linedit" sb-ext:*posix-argv* :test 'equal) + (setf sb-ext:*posix-argv* + (remove "--no-linedit" sb-ext:*posix-argv* :test 'equal)) + (when (interactive-stream-p *terminal-io*) + (require :sb-aclrepl) + (require :linedit) + (funcall (intern "INSTALL-REPL" :linedit) :wrap-current t))) |