[movitz-cvs] CVS update: movitz/ide/ide.lisp

[Luke Gorrie]

Update of /project/movitz/cvsroot/movitz/ide
In directory common-lisp.net:/tmp/cvs-serv4281

Modified Files:
	ide.lisp 
Log Message:
Fixed with-open-file args in `compile-defun'.

Date: Mon Aug  2 00:45:31 2004
Author: lgorrie

Index: movitz/ide/ide.lisp
diff -u movitz/ide/ide.lisp:1.1 movitz/ide/ide.lisp:1.2
--- movitz/ide/ide.lisp:1.1	Wed Jul 21 03:54:42 2004
+++ movitz/ide/ide.lisp	Mon Aug  2 00:45:30 2004
@@ -23,7 +23,8 @@
 
 (defun compile-defun (source)
   "Compile the string SOURCE as Movitz source."
-  (with-open-file (s temp-source-file :direction :output :if-exists :overwrite)
+  (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))