From 6ce874ca52336f2e1ddfda1c8075b4f81fe373a8 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Thu, 3 Sep 2026 00:15:56 -0700
Subject: sbcl: Rename .sbclrc -> sbclrc

Guix doesn't allow files starting with a . to be used by ‘local-file’.
---
 sbcl/sbclrc | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 sbcl/sbclrc

(limited to 'sbcl/sbclrc')

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)))
-- 
cgit v1.3-2-g0d8e