From 27a6a04f67089f37601481681960275d8988d87d Mon Sep 17 00:00:00 2001
From: niten <niten@fudo.org>
Date: Fri, 12 Jul 2024 23:47:19 -0700
Subject: [PATCH] quicklisp is apparently obsolete? I hope?

---
 lib/fudo/slynk.nix | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

diff --git a/lib/fudo/slynk.nix b/lib/fudo/slynk.nix
index 21f8767..0a5c927 100644
--- a/lib/fudo/slynk.nix
+++ b/lib/fudo/slynk.nix
@@ -9,15 +9,8 @@ let
       load-path-string =
         concatStringsSep " " (map (path: ''"${path}"'') load-paths);
     in pkgs.writeText "slynk.lisp" ''
-      (load (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))
-      (ql:quickload :slynk)
-      (setf asdf:*central-registry*
-       (append asdf:*central-registry*
-        (list ${load-path-string})))
+      (asdf:load-system 'slynk)
       (slynk:create-server :port ${toString port} :dont-close t)
-      (dolist (var '("LD_LIBRARY_PATH"))
-        (format t "~S: ~S~%" var (sb-unix::posix-getenv var)))
-
       (loop (sleep 60))
     '';
 
@@ -28,7 +21,6 @@ let
       asdf-system-connections
       cl_plus_ssl
       cl-ppcre
-      quicklisp
       quri
       uiop
       usocket