Ralf Mattes wrote:
As my other post reports - it's a bug in slime.el (swank-loader:load-swank) never gets called and hence sank.lisp never get's loaded (verified by tracing load and compile-file). This all seems to be the result of the recent changes by Helmut and Marco.
Thanks for your help - and I shure would like to know why it's working on your box ... :-)
In the code below, from swank-loader.lisp, it can be seen that 'init' (which is called in slime.el) calls 'load-swank', or rather, calls it if the (when ...) condition is satisfied. Could it be that (find-package :swank) is failing on your system for some reason? Or, could it be that 'load-swank' is called (defined earlier in the listing) and it fails to compile the swank-src-files, or that *fasl-directory* is inaccessible on your system for some reason?
swank-loader.lisp (rev. 1.80): ----------------------------- 208 (defun load-swank (&key (src-dir *source-directory*) 209 (fasl-dir *fasl-directory*)) 210 (compile-files (swank-src-files src-dir) fasl-dir t)) 211 212 (defun compile-contribs (&key (src-dir (contrib-dir *source-directory*)) 213 (fasl-dir (contrib-dir *fasl-directory*))) 214 (compile-files (src-files *contribs* src-dir) fasl-dir nil)) 215 216 (defun setup () 217 (flet ((q (s) (read-from-string s))) 218 (load-site-init-file *source-directory*) 219 (load-user-init-file) 220 (eval `(pushnew 'compile-contribs ,(q "swank::*after-init-hook*"))) 221 (funcall (q "swank::setup") 222 (slime-version-string) 223 (list (contrib-dir *fasl-directory*) 224 (contrib-dir *source-directory*))))) 225 226 (defun init (&key delete reload) 227 (when (and delete (find-package :swank)) 228 (mapc #'delete-package '(:swank :swank-io-package :swank-backend))) 229 (when (or (not (find-package :swank)) reload) 230 (load-swank)) 231 (setup))