[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank-cmucl.lisp 
Log Message:
Find definition for (def-vm-support-routine NAME ...)

* swank-cmucl.lisp (vm-support-routine-definitions): New.
(find-definitions): Use it.

--- /project/slime/cvsroot/slime/ChangeLog	2010/08/12 12:09:45	1.2123
+++ /project/slime/cvsroot/slime/ChangeLog	2010/08/13 07:25:23	1.2124
@@ -1,3 +1,10 @@
+2010-08-13  Helmut Eller  <heller at common-lisp.net>
+
+	Find definition for (def-vm-support-routine NAME ...)
+
+	* swank-cmucl.lisp (vm-support-routine-definitions): New.
+	(find-definitions): Use it.
+
 2010-08-12  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-sbcl.lisp (save-image): Fix save-lisp-and-die invocation.
--- /project/slime/cvsroot/slime/swank-cmucl.lisp	2010/07/06 12:09:20	1.225
+++ /project/slime/cvsroot/slime/swank-cmucl.lisp	2010/08/13 07:25:23	1.226
@@ -900,7 +900,9 @@
           (function-info-definitions name)
           (ir1-translator-definitions name)
           (template-definitions name)
-          (primitive-definitions name)))
+          (primitive-definitions name)
+          (vm-support-routine-definitions name)
+          ))
 
 ;;;;; Functions, macros, generic functions, methods
 ;;;
@@ -1276,6 +1278,16 @@
          (not (eq csym name))
          (template-definitions csym))))
 
+(defun vm-support-routine-definitions (name)
+  (let ((sr (c::backend-support-routines c::*backend*))
+        (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)
+                                name))))
+
 
 ;;;; Documentation.