[movitz-cvs] CVS movitz/ide

[ffjeld]

Update of /project/movitz/cvsroot/movitz/ide
In directory clnet:/tmp/cvs-serv14958

Modified Files:
	ide.lisp 
Log Message:
Add movitz-disassemble-primitive.


--- /project/movitz/cvsroot/movitz/ide/ide.lisp	2007/03/13 20:42:11	1.6
+++ /project/movitz/cvsroot/movitz/ide/ide.lisp	2007/04/09 15:59:43	1.7
@@ -13,6 +13,7 @@
            #:compile-defun
            #:dump-image
            #:movitz-disassemble
+           #:movitz-disassemble-primitive
            #:movitz-disassemble-method
            #:movitz-arglist
            #:movitz-macroexpand))
@@ -49,6 +50,13 @@
       (movitz:movitz-disassemble (get-sexpr printname
                                             (get-package package-printname))))))
 
+(defun movitz-disassemble-primitive (printname package-printname)
+  "Return the disassembly of SYMBOL-NAME's function as a string."
+  (with-image ()
+    (with-output-to-string (*standard-output*)
+      (movitz::movitz-disassemble-primitive (get-sexpr printname
+                                                       (get-package package-printname))))))
+
 (defun movitz-disassemble-method (gf-name lambda-list qualifiers package-name)
   (with-image ()
     (let ((package (get-package package-name)))