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