/[slime]/slime/swank-loader.lisp
ViewVC logotype

Diff of /slime/swank-loader.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.70 by heller, Fri Aug 31 11:48:23 2007 UTC revision 1.71 by heller, Tue Sep 4 10:32:05 2007 UTC
# Line 200  recompiled." Line 200  recompiled."
200    
201  (defvar *contribs* '(swank-c-p-c swank-arglists swank-fuzzy  (defvar *contribs* '(swank-c-p-c swank-arglists swank-fuzzy
202                       swank-fancy-inspector                       swank-fancy-inspector
203                       swank-presentations swank-presentation-streams)                       swank-presentations swank-presentation-streams
204                         #+asdf swank-asdf
205                         )
206    "List of names for contrib modules.")    "List of names for contrib modules.")
207    
208  (defun append-dir (absolute name)  (defun append-dir (absolute name)
# Line 208  recompiled." Line 210  recompiled."
210     (make-pathname :directory `(:relative ,name) :defaults absolute)     (make-pathname :directory `(:relative ,name) :defaults absolute)
211     absolute))     absolute))
212    
213    (defun contrib-src-dir (src-dir)
214      (append-dir src-dir "contrib"))
215    
216  (defun contrib-source-files (src-dir)  (defun contrib-source-files (src-dir)
217    (source-files *contribs* (append-dir src-dir "contrib")))    (source-files *contribs* (contrib-src-dir src-dir)))
218    
219  (defun load-swank (&key  (defun load-swank (&key
220                     (source-directory *source-directory*)                     (source-directory *source-directory*)
# Line 219  recompiled." Line 224  recompiled."
224    (compile-files-if-needed-serially (swank-source-files source-directory)    (compile-files-if-needed-serially (swank-source-files source-directory)
225                                      fasl-directory t)                                      fasl-directory t)
226    (compile-files-if-needed-serially (contrib-source-files source-directory)    (compile-files-if-needed-serially (contrib-source-files source-directory)
227                                      contrib-fasl-directory nil)                                      contrib-fasl-directory nil))
   (set (read-from-string "swank::*swank-wire-protocol-version*")  
        (slime-version-string))  
   (funcall (intern (string :warn-unimplemented-interfaces) :swank-backend))  
   (load-site-init-file source-directory)  
   (load-user-init-file)  
   (funcall (intern (string :run-after-init-hook) :swank)))  
228    
229  (load-swank)  (load-swank)
230    
231    (setq swank::*swank-wire-protocol-version* (slime-version-string))
232    (setq swank::*load-path*
233          (append swank::*load-path* (list (contrib-src-dir *source-directory*))))
234    (swank-backend::warn-unimplemented-interfaces)
235    (load-site-init-file *source-directory*)
236    (load-user-init-file)
237    (swank:run-after-init-hook)

Legend:
Removed from v.1.70  
changed lines
  Added in v.1.71

  ViewVC Help
Powered by ViewVC 1.1.5