Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
086521b5
Commit
086521b5
authored
May 01, 2013
by
Dave Cooper
Browse files
changed to system:run-shell-command for lw windows
parent
9d66b107
Changes
3
Hide whitespace changes
Inline
Side-by-side
base/source/start.lisp
View file @
086521b5
...
...
@@ -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
"
...
...
glisp/source/genworks.lisp
View file @
086521b5
...
...
@@ -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
)
...
...
system-index.txt
View file @
086521b5
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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment