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
asdf
asdf
Commits
ca1322ab
Commit
ca1322ab
authored
Sep 20, 2002
by
Kevin Rosenberg
Browse files
add run-shell-command for openmcl
parent
9a8584d2
Changes
2
Hide whitespace changes
Inline
Side-by-side
asdf.lisp
View file @
ca1322ab
;;; This is asdf: Another System Definition Facility. $Revision: 1.4
5
$
;;; This is asdf: Another System Definition Facility. $Revision: 1.4
6
$
;;;
;;; Feedback, bug reports, and patches are all welcome: please mail to
;;; <cclan-list@lists.sf.net>. But note first that the canonical
...
...
@@ -88,7 +88,7 @@
(
in-package
#:asdf
)
;;; parse the cvs revision into something that might be vaguely useful.
(
defvar
*asdf-revision*
(
let*
((
v
"$Revision: 1.4
5
$"
)
(
defvar
*asdf-revision*
(
let*
((
v
"$Revision: 1.4
6
$"
)
(
colon
(
position
#\:
v
))
(
dot
(
position
#\.
v
)))
(
and
v
colon
dot
...
...
@@ -919,5 +919,15 @@ output to *trace-output*. Returns the shell's exit code."
;; doesn't seem to be documented
(
ext:run-shell-command
command
:output
:terminal
:wait
t
)))
#+
openmcl
(
defun
run-shell-command
(
control-string
&rest
args
)
"Interpolate ARGS into CONTROL-STRING as if by FORMAT, and
synchronously execute the result using a Bourne-compatible shell, with
output to *trace-output*. Returns the shell's exit code."
(
let
((
command
(
apply
#'
format
nil
control-string
args
)))
(
format
*trace-output*
"; $ ~A~%"
command
)
(
ccl:run-program
"/bin/sh"
(
list
"-c"
command
)
:input
nil
:output
*trace-output*
:wait
t
)))
(
pushnew
:asdf
*features*
)
debian/changelog
View file @
ca1322ab
cl-asdf (1.46) unstable; urgency=low
* New upstream version, adds run-shell-command for openmcl
-- Kevin M. Rosenberg <kmr@debian.org> Fri, 20 Sep 2002 10:11:48 -0600
cl-asdf (1.45) unstable; urgency=low
* Changes to improve clisp support
...
...
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