diff --git a/gendl.asd b/gendl.asd index 53e36416a34dd49f593a981a8cae5f5a5970e397..5c03e69a00c8f8bd9253019ba0c35f5007416019 100644 --- a/gendl.asd +++ b/gendl.asd @@ -4,7 +4,7 @@ "The Gendl® gendl Subsystem" :author "Genworks International" :license "Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t :version "20180115" :depends-on - (:bordeaux-threads :uiop :babel #-allegro :quri #-allegro :zacl :cl-lite :gwl-graphics :tasty :robot :yadd) + (:bordeaux-threads :uiop #-allegro :babel #-allegro :quri #-allegro :zacl :cl-lite :gwl-graphics :tasty :robot :yadd) #-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings) #+asdf-unicode :defsystem-depends-on #+asdf-unicode () #+asdf-encodings :encoding #+asdf-encodings :utf-8 diff --git a/glisp/source/genworks.lisp b/glisp/source/genworks.lisp index f307eca9c63361b986be4e02219e19cb121fa6e8..58313c76154ab975b94d92faeeb276b5339b39e4 100644 --- a/glisp/source/genworks.lisp +++ b/glisp/source/genworks.lisp @@ -278,8 +278,8 @@ The command line was: ~%~%~s~%" command result error command-line))))) (defun run-program (command &rest keys &key ignore-error-status force-shell (input nil inputp) (if-input-does-not-exist :error) - output (if-output-exists :overwrite) - (error-output nil error-output-p) (if-error-output-exists :overwrite) + output (if-output-exists :supersede) + (error-output nil error-output-p) (if-error-output-exists :supersede) (element-type #-clozure uiop:*default-stream-element-type* #+clozure 'character) (external-format uiop:*utf-8-external-format*) &allow-other-keys)