[movitz-cvs] CVS movitz/ide
ffjeld
ffjeld at common-lisp.net
Mon Apr 9 15:59:43 UTC 2007
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)))
More information about the Movitz-cvs
mailing list