From f4e6d975b210d4faad16eb806a978b07bf6e5d0b Mon Sep 17 00:00:00 2001 From: Dave Cooper Date: Wed, 30 May 2018 12:23:23 -0400 Subject: [PATCH] got rid of babel in gendl for Allegro builds --- gendl.asd | 2 +- glisp/source/genworks.lisp | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/gendl.asd b/gendl.asd index 53e36416..5c03e69a 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 f307eca9..58313c76 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) -- GitLab