From 83eeee0933a6d12e90c66e7e68631f7fb6fc064c Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Wed, 27 Jun 2018 20:26:47 -0300
Subject: Load Quicklisp CL code in SBCL startup

---
 sbclrc.lisp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'sbclrc.lisp')

diff --git a/sbclrc.lisp b/sbclrc.lisp
index ab58ec5..3a931d0 100644
--- a/sbclrc.lisp
+++ b/sbclrc.lisp
@@ -1,2 +1,6 @@
-(defun tap (x)
-  x)
+;;; 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)))
-- 
cgit v1.2.3