branch: elpa/slime
commit 36878496d6f9d06cd3e4dfa3f51ab57acc5fe95f
Author: josh <j...@joshua-a-betts.com>
Commit: Stas Boukarev <stass...@gmail.com>
add a :load-contribs key to #'dump-image to preload *contribs*
---
swank-loader.lisp | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/swank-loader.lisp b/swank-loader.lisp
index 2d085d42c7..c46137ef2e 100644
--- a/swank-loader.lisp
+++ b/swank-loader.lisp
@@ -358,8 +358,8 @@ global variabes in SWANK."
(when setup
(setup)))
-(defun dump-image (filename)
- (init :setup nil)
+(defun dump-image (filename &key load-contribs)
+ (init :setup nil :load-contribs load-contribs)
(funcall (q "swank/backend:save-image") filename))
(defun list-fasls (&key (include-contribs t) (compile t)
