[movitz-cvs] CVS update: movitz/ide/ide.lisp - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

2 Aug 2004

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))

    