Update of /project/movitz/cvsroot/movitz/ide In directory clnet:/tmp/cvs-serv15038
Modified Files: movitz-slime.el Log Message: Add movitz-disassemble-primitive.
--- /project/movitz/cvsroot/movitz/ide/movitz-slime.el 2007/03/13 20:42:13 1.5 +++ /project/movitz/cvsroot/movitz/ide/movitz-slime.el 2007/04/09 16:00:00 1.6 @@ -45,7 +45,7 @@ ((slime-eval '(cl:and (cl:find-package :movitz.ide) t))) ((not (slime-eval '(cl:and (cl:find-package :movitz) t))) (message "Movitz-mode: The Movitz package is not loaded.")) - (t (slime-eval-async + (t (slime-eval `(cl:progn (cl:load (cl:compile-file ,(concat movitz-slime-path "ide.lisp"))) nil)))))
@@ -161,27 +161,23 @@ (options options)) (cond ((string= "function" defun-type) - (message "Movitz disassembling %s %s..." defun-type defun-name) + (message "Movitz disassembling %s '%s'..." defun-type defun-name) (slime-eval-async `(movitz.ide:movitz-disassemble ,defun-name ,package-name) (lambda (result) (slime-show-description result package-name) - (message "Movitz disassembling %s %s...done." defun-type defun-name)))) + (message "Movitz disassembling %s '%s'...done." defun-type defun-name)))) ((string= "method" defun-type) (message "Movitz disassembling %s '%s %s'..." defun-type defun-name lambda-list) (slime-eval-async `(movitz.ide:movitz-disassemble-method ,defun-name ,lambda-list ',options ,package-name) (lambda (result) (slime-show-description result package-name) (message "Movitz disassembling %s '%s %s'...done." defun-type defun-name lambda-list)))) - ;; ((string= "primitive-function" defun-type) - ;; (message "Movitz disassembling %s %s..." defun-type defun-name) - ;; (fi:eval-in-lisp - ;; "(cl:let ((defun-name (cl:let ((cl:*package* (cl:find-package :%s))) - ;; (cl:read-from-string "%s"))) - ;; (cl:*print-base* 16)) - ;; (movitz::movitz-disassemble-primitive defun-name))" - ;; fi:package defun-name) - ;; (switch-to-buffer "*common-lisp*") - ;; (message "Movitz disassembling %s %s...done." defun-type defun-name)) + ((string= "primitive-function" defun-type) + (message "Movitz disassembling %s '%s'..." defun-type defun-name) + (slime-eval-async `(movitz.ide:movitz-disassemble-primitive ,defun-name ,package-name) + (lambda (result) + (slime-show-description result package-name) + (message "Movitz disassembling %s '%s'...done." defun-type defun-name)))) (t (message "Don't know how to Movitz disassemble %s '%s'." defun-type defun-name))))))
(defun movitz-arglist (string)