From 2a7609ac658fcf79cbaa986c1b103c675854dcee Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Sat, 21 Oct 2023 09:32:30 +0200
Subject: [PATCH] Add sbclrc file

---
 .sbclrc | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 .sbclrc

diff --git a/.sbclrc b/.sbclrc
new file mode 100644
index 0000000..c282ecf
--- /dev/null
+++ b/.sbclrc
@@ -0,0 +1,15 @@
+(sb-ext:set-sbcl-source-location "~/sbcl/")
+(defun print-condition-hook (condition hook)
+  "Print this error message (condition) and abort the current operation."
+  (declare (ignore hook))
+  (princ condition)
+  (clear-input)
+  (abort))
+*debugger-hook*
+(setf *debugger-hook* #'print-condition-hook)
+;;; The following lines added by ql:add-to-init-file:
+#-quicklisp
+(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
+                                       (user-homedir-pathname))))
+  (when (probe-file quicklisp-init)
+    (load quicklisp-init)))