diff --git a/process-spec.lisp b/process-spec.lisp index 3000781741e4ae780fe6e46f2d7756e2f52510c4..e927358f54a537d3784ad0c7b3153ed6cda02ccc 100644 --- a/process-spec.lisp +++ b/process-spec.lisp @@ -244,8 +244,8 @@ (f '< fd pn '(:input :if-does-not-exist :error))) (`(<> ,pn) (c `(<> 0 ,pn))) - (`(<> ,pn) - (f '<> 0 pn + (`(<> ,fd ,pn) + (f '<> fd pn '(:io :if-exists :overwrite :if-does-not-exist :error))) (`(> ,pn) (c `(> 1 ,pn))) (`(> ,fd ,pn)