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)))