/[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.93 by heller, Wed Oct 28 20:28:03 2009 UTC revision 1.94 by sboukarev, Fri Oct 30 19:39:34 2009 UTC
# Line 226  If LOAD is true, load the fasl file." Line 226  If LOAD is true, load the fasl file."
226  (defun setup ()  (defun setup ()
227    (load-site-init-file *source-directory*)    (load-site-init-file *source-directory*)
228    (load-user-init-file)    (load-user-init-file)
229    (when (probe-file (contrib-dir *source-directory*))    (when (#-clisp probe-file
230             #+clisp ext:probe-directory
231             (contrib-dir *source-directory*))
232      (eval `(pushnew 'compile-contribs ,(q "swank::*after-init-hook*"))))      (eval `(pushnew 'compile-contribs ,(q "swank::*after-init-hook*"))))
233    (funcall (q "swank::init")))    (funcall (q "swank::init")))
234    

Legend:
Removed from v.1.93  
changed lines
  Added in v.1.94

  ViewVC Help
Powered by ViewVC 1.1.5