I'm trying to add a swank server on all of our lisp apps running on images.
I want to have everything compiled and loaded, so when I start up the image
I don't need to load any .fasl files.
I'm using ASDF to load swank and then running:
(swank-loader:init :reload t :load-contribs t :quiet nil)
On image start up, I'm running:
(setf swank::*loopback-interface* "0.0.0.0")
(swank:create-server :port 4005 :dont-close t)
Swank starts up fine, but, when the first user tries to connect, it tries
to load some .fasl files.
; Fast loading /home/mdagostino/.slime/fasl/2.20/allegro-10.1as-64bit-ics-linux-x86-64/contrib/swank-asdf.fasl
; Loading /home/mdagostino/workspace/Library/world/site/cl-ppcre-1.3.2/cl-ppcre-test.asd
; Loading /home/mdagostino/workspace/Library/world/site/slime-20180308-git/contrib/swank-media.lisp
; Fast loading /home/mdagostino/.slime/fasl/2.20/allegro-10.1as-64bit-ics-linux-x86-64/contrib/swank-trace-dialog.fasl
; Fast loading /home/mdagostino/.slime/fasl/2.20/allegro-10.1as-64bit-ics-linux-x86-64/contrib/swank-package-fu.fasl
; Fast loading /home/mdagostino/.slime/fasl/2.20/allegro-10.1as-64bit-ics-linux-x86-64/contrib/swank-presentations.fasl
; Fast loading
/home/mdagostino/.slime/fasl/2.20/allegro-10.1as-64bit-ics-linux-x86-64/contrib/swank-repl.fasl
; Fast loading /home/mdagostino/.slime/fasl/2.20/allegro-10.1as-64bit-ics-linux-x86-64/contrib/swank-macrostep.fasl
; Fast loading /home/mdagostino/.slime/fasl/2.20/allegro-10.1as-64bit-ics-linux-x86-64/contrib/swank-fuzzy.fasl
; Fast loading
/home/mdagostino/.slime/fasl/2.20/allegro-10.1as-64bit-ics-linux-x86-64/contrib/swank-util.fasl
; Fast loading
/home/mdagostino/.slime/fasl/2.20/allegro-10.1as-64bit-ics-linux-x86-64/contrib/swank-c-p-c.fasl
; Fast loading /home/mdagostino/.slime/fasl/2.20/allegro-10.1as-64bit-ics-linux-x86-64/contrib/swank-fancy-inspector.fasl
; Fast loading /home/mdagostino/.slime/fasl/2.20/allegro-10.1as-64bit-ics-linux-x86-64/contrib/swank-arglists.fasl
I tried adding this after doing 'swank:create-server, but it doesn't work:
(setf swank::*find-module* #'(lambda (module)
(declare (ignore module))
nil))
How can I make it so it doesn't look for those files? I would imagine they
have already been compiled and loaded into the image. I'm using 'dumplisp
to create the image.
Thanks in advance!
- Mauro
