[slime-cvs] CVS slime/contrib

[trittweiler]

Update of /project/slime/cvsroot/slime/contrib
In directory clnet:/tmp/cvs-serv30963/contrib

Modified Files:
	slime-typeout-frame.el 
Log Message:

* slime-typeout-frame.el (slime-typeout-frame-init): Fix quoted
  FUNCTION forms in literal.


--- /project/slime/cvsroot/slime/contrib/slime-typeout-frame.el	2007/09/20 14:55:53	1.3
+++ /project/slime/cvsroot/slime/contrib/slime-typeout-frame.el	2007/09/30 22:41:44	1.4
@@ -61,9 +61,9 @@
 (defun slime-typeout-frame-init ()
   (add-hook 'slime-connected-hook 'slime-ensure-typeout-frame)
   (loop for (var value) in 
-	'((slime-message-function #'slime-typeout-message)
-	  (slime-background-message-function #'slime-typeout-message)
-	  (slime-autodoc-message-function #'slime-typeout-autodoc-message))
+	'((slime-message-function slime-typeout-message)
+	  (slime-background-message-function slime-typeout-message)
+	  (slime-autodoc-message-function slime-typeout-autodoc-message))
 	do (slime-typeout-frame-init-var var value)))
 
 (defun slime-typeout-frame-init-var (var value)