From cda0cab8598fe65c54ad8036c8edfd3930336393 Mon Sep 17 00:00:00 2001
From: Tom Willemse <tom@ryuslash.org>
Date: Mon, 13 Apr 2020 02:16:57 -0700
Subject: [PATCH] Add SBCL configuration

---
 sbcl/.sbclrc | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 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)))