Skip to content
Snippets Groups Projects
Commit 7e0aec2d authored by Elias Pipping's avatar Elias Pipping
Browse files

Bug fix: Pass :if-*-exists on to Allegro CL

Prior to this, %run-command would generate errors such as

  File #P"/dev/null" already exists.: File exists [errno=17].

Tested with acl-10.0-linux-x86.
parent 8a27eb6b
No related branches found
No related tags found
No related merge requests found
...@@ -466,10 +466,11 @@ It returns a process-info plist with possible keys: ...@@ -466,10 +466,11 @@ It returns a process-info plist with possible keys:
#-clisp `(#+(or allegro lispworks) :error-output #-(or allegro lispworks) :error #-clisp `(#+(or allegro lispworks) :error-output #-(or allegro lispworks) :error
,%error-output) ,%error-output)
#+(and allegro os-windows) `(:show-window ,(if interactive nil :hide)) #+(and allegro os-windows) `(:show-window ,(if interactive nil :hide))
#+(or clozure cmu ecl lispworks mkcl sbcl scl) #+(or allegro clozure cmu ecl lispworks mkcl sbcl scl)
`(:if-input-does-not-exist ,if-input-does-not-exist `(:if-input-does-not-exist ,if-input-does-not-exist
:if-output-exists ,if-output-exists :if-output-exists ,if-output-exists
#-lispworks :if-error-exists #+lispworks :if-error-output-exists #-(or allegro lispworks) :if-error-exists
#+(or allegro lispworks) :if-error-output-exists
,if-error-output-exists) ,if-error-output-exists)
#+lispworks `(:save-exit-status t) #+lispworks `(:save-exit-status t)
#+mkcl `(:directory ,(native-namestring directory)) #+mkcl `(:directory ,(native-namestring directory))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment