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

Modified Files: ide.lisp Log Message: Take advantage of movitz:movitz-compile-stream.

--- /project/movitz/cvsroot/movitz/ide/ide.lisp 2004/08/02 07:45:30 1.2 +++ /project/movitz/cvsroot/movitz/ide/ide.lisp 2007/02/26 21:32:55 1.3 @@ -14,19 +14,14 @@

(in-package #:movitz.ide)

-(defconstant temp-source-file "/tmp/movitz-scratch.lisp" - "Temporary file used to implement race conditions.") - (defun compile-movitz-file (filename) "Compile FILENAME as Movitz source." (movitz:movitz-compile-file filename))

(defun compile-defun (source) "Compile the string SOURCE as Movitz source." - (with-open-file (s temp-source-file :direction :output - :if-exists :overwrite :if-does-not-exist :create) - (princ source s)) - (compile-movitz-file temp-source-file)) + (with-input-from-string (stream source) + (movitz:movitz-compile-stream stream :path "movitz-ide-toplevel")))

(defun dump-image (filename) "Dump the current image into FILENAME." @@ -41,7 +36,7 @@ (defun disassemble-fdefinition (symbol) "Return the disassembly SYMBOL's fdefinition as a string." (with-output-to-string (*standard-output*) - (movitz::movitz-disassemble symbol))) + (movitz:movitz-disassemble symbol)))

;;;; Utilities.