/[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.86 by trittweiler, Wed Jul 23 14:29:10 2008 UTC revision 1.87 by heller, Tue Aug 12 17:54:44 2008 UTC
# Line 21  Line 21 
21  (cl:defpackage :swank-loader  (cl:defpackage :swank-loader
22    (:use :cl)    (:use :cl)
23    (:export :init    (:export :init
24               :dump-image
25             :*source-directory*             :*source-directory*
26             :*fasl-directory*))             :*fasl-directory*))
27    
# Line 225  If LOAD is true, load the fasl file." Line 226  If LOAD is true, load the fasl file."
226    (eval `(pushnew 'compile-contribs ,(q "swank::*after-init-hook*")))    (eval `(pushnew 'compile-contribs ,(q "swank::*after-init-hook*")))
227    (funcall (q "swank::init")))    (funcall (q "swank::init")))
228    
229    (defun dump-image (filename)
230      (init :setup nil)
231      (funcall (q "swank-backend:save-image") filename))
232    
233  (defun init (&key delete reload load-contribs (setup t))  (defun init (&key delete reload load-contribs (setup t))
234    (when (and delete (find-package :swank))    (when (and delete (find-package :swank))
235      (mapc #'delete-package '(:swank :swank-io-package :swank-backend)))      (mapc #'delete-package '(:swank :swank-io-package :swank-backend)))

Legend:
Removed from v.1.86  
changed lines
  Added in v.1.87

  ViewVC Help
Powered by ViewVC 1.1.5