YAMM (Yet Another Movitz Mode)
Luke Gorrie <[email protected]> Wed, 21 Jul 2004 05:55:12 +0200
| Newsgroups | gmane.lisp.movitz.devel |
|---|---|
| Message-ID | <[email protected]> |
Howdy, I wrote a small Movitz mode too. This one is split into an Elisp side and a CL side. The Elisp side is based on SLIME, but the CL side is hopefully sharable if Frode wants to write an ELI front-end too. (But note that SLIME works fine with ACL too.. :-) If this is wanted in Movitz CVS then I'm happy to do it that way. Otherwise I'll stick it in a Darcs repository - you've been warned :-) P.S., on the weekend I hacked slime in an incompatible way with the `slime-movitz.el' currently in Movitz CVS. The attached patch should bring it up to date.
ide.lisp
(application/octet-stream, 2.5 KB) - not displayed
movitz-slime.el
(application/emacs-lisp, 4.4 KB) - not displayed
slime-movitz.diff
(application/octet-stream, 2.5 KB)
--- slime-movitz.el.~1.2.~ 2004-03-28 15:37:16.000000000 +0200
+++ slime-movitz.el 2004-07-21 05:49:30.000000000 +0200
@@ -88,7 +88,6 @@
(movitz::movitz-print
(movitz::movitz-funobj-lambda-list funobj)))
"(-- <Unknown-Function>)"))
- (slime-buffer-package)
(with-lexical-bindings (show-fn fname)
(lambda (arglist)
(if show-fn
@@ -102,7 +101,6 @@
(slime-background-message "Dumping a Movitz image...")
(slime-eval-async
'(movitz::dump-image)
- (slime-buffer-package)
(with-lexical-bindings (dont-run-bochs-p)
(slime-background-message
"Dumping the Movitz image done. Bootblock ID: %d."
@@ -125,7 +123,6 @@
(slime-background-message "Movitz compiling \"%s\"..." file)
(slime-eval-async
`(movitz::movitz-compile-file ,file)
- (slime-buffer-package)
(with-lexical-bindings (file)
(lambda (result)
(slime-background-message "Movitz compiling \"%s\" done." file)))))
@@ -154,7 +151,6 @@
(cl:not movitz::*compiler-do-optimize*)))
(movitz::movitz-compile-file ,file :delete-file-p t))
(movitz::movitz-compile-file ,file :delete-file-p t))
- (slime-buffer-package)
(with-lexical-bindings (fname ftype)
(lambda (result)
(slime-background-message
@@ -180,7 +176,6 @@
(cl:*print-base* 16))
(movitz::movitz-disassemble
defun-name :recursive ,(not not-recursive-p)))
- (slime-buffer-package)
(with-lexical-bindings (defun-type defun-name)
(lambda (result)
(slime-background-message
@@ -225,7 +220,6 @@
(funobj (muerte::movitz-slot-value method 'muerte::function))
(cl:*print-base* 16))
(movitz::movitz-disassemble-funobj funobj))
- (slime-buffer-package)
(with-lexical-bindings (defun-type defun-name lambda-list)
(lambda (result)
(slime-background-message
@@ -236,7 +230,6 @@
"Movitz disassembling %s %s..." defun-type defun-name)
(slime-eval-async
nil
- (slime-buffer-package)
(with-lexical-bindings (defun-type defun-name)
(lambda (result)
(slime-background-message
@@ -277,7 +270,6 @@
(stream ,file :direction :input)
(cl:read stream))))
:common-lisp :muerte.common-lisp))))
- (slime-buffer-package)
(with-lexical-bindings (file)
(lambda (result)
(delete-file file)