dot/lisp-init.lisp: Actually invoke the loader.

Maybe this has changed since I wrote it.  It's obviously been broken for
a long time.

diff --git a/dot/lisp-init.lisp b/dot/lisp-init.lisp
index c15886ac1f7ea7ba75c1171452103dcaf913342a..ca38a70eb83f752a3426650b2073545f8b19fafc 100644 (file)
--- a/dot/lisp-init.lisp
+++ b/dot/lisp-init.lisp
@@ -53,6 +53,7 @@ (defun crank-swank (&rest args)
   (let ((swank (find-package "SWANK")))
     (unless swank
       (load "/usr/share/common-lisp/source/slime/swank-loader.lisp")
   (let ((swank (find-package "SWANK")))
     (unless swank
       (load "/usr/share/common-lisp/source/slime/swank-loader.lisp")

+      (funcall (find-symbol "INIT" (find-package "SWANK-LOADER")))

       (setf swank (find-package "SWANK")))
     (set (find-symbol "*GLOBAL-DEBUGGER*" swank) nil)
     (apply (find-symbol "CREATE-SERVER" swank) args)))
       (setf swank (find-package "SWANK")))
     (set (find-symbol "*GLOBAL-DEBUGGER*" swank) nil)
     (apply (find-symbol "CREATE-SERVER" swank) args)))