[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv5679

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-compile-file-options): New variable.
(slime-compile-file): Use it.

--- /project/slime/cvsroot/slime/ChangeLog	2009/01/10 12:25:30	1.1662
+++ /project/slime/cvsroot/slime/ChangeLog	2009/01/10 12:25:41	1.1663
@@ -2,6 +2,11 @@
 
 	* swank.lisp (do-symbols*): Wrap body in TAGBODY.
 
+2009-01-10  Helmut Eller  <heller at common-lisp.net>
+
+	* slime.el (slime-compile-file-options): New variable.
+	(slime-compile-file): Use it.
+
 2009-01-10  David Reitter <david.reitter at gmail.com>
 
 	* slime.el (slime-space): Declare `slime-space' to
--- /project/slime/cvsroot/slime/slime.el	2009/01/10 12:25:30	1.1115
+++ /project/slime/cvsroot/slime/slime.el	2009/01/10 12:25:41	1.1116
@@ -2632,6 +2632,10 @@
   (interactive)
   (slime-compile-file t))
 
+(defvar slime-compile-file-options '()
+  "Plist of additional options that C-c C-k should pass to Lisp.
+Currently only :fasl-directory is supported.")
+
 (defun slime-compile-file (&optional load)
   "Compile current buffer's file and highlight resulting compiler notes.
 
@@ -2648,7 +2652,8 @@
   (run-hook-with-args 'slime-before-compile-functions (point-min) (point-max))
   (let ((file (slime-to-lisp-filename (buffer-file-name))))
     (slime-eval-async
-     `(swank:compile-file-for-emacs ,file ,(if load t nil))
+     `(swank:compile-file-for-emacs ,file ,(if load t nil) 
+                                    ',slime-compile-file-options)
      #'slime-compilation-finished)
     (message "Compiling %s..." file)))