[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-compile-file): Only send non-nil keyword args.
(slime-hack-quotes): New function.

--- /project/slime/cvsroot/slime/ChangeLog	2010/05/18 09:12:46	1.2094
+++ /project/slime/cvsroot/slime/ChangeLog	2010/05/27 14:47:39	1.2095
@@ -1,3 +1,8 @@
+2010-05-26  Helmut Eller  <heller at common-lisp.net>
+
+	* slime.el (slime-compile-file): Only send non-nil keyword args.
+	(slime-hack-quotes): New function.
+
 2010-05-18  Stas Boukarev  <stassats at gmail.com>
 
 	* slime.el (sldb-insert-condition): Don't create a mouse tooltip
--- /project/slime/cvsroot/slime/slime.el	2010/05/18 09:12:47	1.1319
+++ /project/slime/cvsroot/slime/slime.el	2010/05/27 14:47:39	1.1320
@@ -2402,7 +2402,6 @@
 (put 'slime-define-channel-method 'lisp-indent-function 3)
 (put 'slime-indulge-pretty-colors 'slime-define-channel-method t)
 
-
 (defun slime-send-to-remote-channel (channel-id msg)
   (slime-dispatch-event `(:emacs-channel-send ,channel-id ,msg)))
 
@@ -2586,12 +2585,17 @@
   (run-hook-with-args 'slime-before-compile-functions (point-min) (point-max))
   (let ((file (slime-to-lisp-filename (buffer-file-name)))
         (options (slime-simplify-plist `(, at slime-compile-file-options
-                                         :policy ',policy))))
+                                         :policy ,policy))))
     (slime-eval-async
-        `(swank:compile-file-for-emacs ,file ,(if load t nil) . ,options)
+        `(swank:compile-file-for-emacs ,file ,(if load t nil) 
+                                       . ,(slime-hack-quotes options))
       #'slime-compilation-finished)
     (message "Compiling %s..." file)))
 
+(defun slime-hack-quotes (arglist)
+  ;; eval is the wrong primitive, we rally want funcall
+  (loop for arg in arglist collect `(quote ,arg)))
+
 (defun slime-simplify-plist (plist)
   (loop for (key val) on plist by #'cddr 
         append (cond ((null val) '())
@@ -2604,7 +2608,6 @@
 debug settings (`C-u'). With negative prefix argument it is compiled for
 speed (`M--'). If a numeric argument is passed set debug or speed settings
 to it depending on its sign."
-  
   (interactive "P")
   (let ((slime-compilation-policy (slime-compute-policy raw-prefix-arg)))
     (if (use-region-p)