[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	swank-cmucl.lisp 
Log Message:
(vm-support-routine-definitions): Use 'c not :c to reduce clutter in
the keyword package.

--- /project/slime/cvsroot/slime/swank-cmucl.lisp	2010/08/13 07:25:23	1.226
+++ /project/slime/cvsroot/slime/swank-cmucl.lisp	2010/08/13 07:31:01	1.227
@@ -1280,12 +1280,11 @@
 
 (defun vm-support-routine-definitions (name)
   (let ((sr (c::backend-support-routines c::*backend*))
-        (name (find-symbol (string name) :c)))
+        (name (find-symbol (string name) 'c)))
     (and name
          (slot-exists-p sr name)
          (maybe-make-definition (slot-value sr name)
-                                (find-symbol (string 'vm-support-routine)
-                                             :c)
+                                (find-symbol (string 'vm-support-routine) 'c)
                                 name))))