Commit 086521b5 authored by Dave Cooper's avatar Dave Cooper
Browse files

changed to system:run-shell-command for lw windows

parent 9d66b107
......@@ -68,6 +68,11 @@
(defun startup-banner ()
#+lispworks
(format t "Welcome to Gendl on LispWorks where we can't print wide chars at the moment.")
#-lispworks
(format t
"
......
......@@ -231,13 +231,39 @@ and \"..\" entries."
#+win32 ((ext:getenv "PID")) ; where does that come from?
(t -1))))
#-(and mswindows lispworks)
(defun run-gs (command)
"Shell out a ghostscript command and handle errors."
(let ((result
(run-program command)))
(unless (zerop result) (error "Ghostscript threw error"))))
#+(and mswindows lispworks)
(defun run-gs (command)
"Shell out a ghostscript command and handle errors."
(let ((result
(system:run-shell-command command)))
(unless (zerop result) (error "Ghostscript threw error"))))
#+nil
(defun run-gs (command)
"Shell out a ghostscript command and handle errors."
(format t "~a" command)
(let ((result (#+allegro
excl:run-shell-command
#-allegro
acl-compat.excl:run-shell-command
command
;;:show-window :hide
)))
(when result
(unless (zerop result) (error "Ghostscript threw error")))))
(defun run-program (command &key output ignore-error-status force-shell
(element-type uiop:*default-stream-element-type*)
(external-format :default)
......@@ -592,6 +618,7 @@ please find implementation for the currently running lisp.~%")
dry-run?
(options (list "a"))
long-form-options)
#+mswindows (declare (ignore source dest directory print-command? dry-run? options long-form-options))
#+mswindows (error "~&Sorry, glisp:rsync is not yet implemented for MS Windows.~%")
#-mswindows
(labels ((expanded-pathname-string (pathname)
......
gendl.asd
gwl/gwl.asd
surf/surf.asd
base/base.asd
surf/surf.asd
glisp/glisp.asd
apps/ta2/ta2.asd
demos/bus/bus.asd
apps/yadd/yadd.asd
apps/tree/tree.asd
apps/yadd/yadd.asd
cl-lite/cl-lite.asd
apps/tasty/tasty.asd
demos/robot/robot.asd
geom-base/geom-base.asd
demos/ledger/ledger.asd
geom-base/geom-base.asd
regression/regression.asd
gwl-graphics/gwl-graphics.asd
demos/wire-world/wire-world.asd
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment