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
Hugo Ishimaru
asdf
Commits
dd7a706c
Commit
dd7a706c
authored
Jul 07, 2015
by
Francois-Rene Rideau
Browse files
Merge branch 'master' into minimakefile
parents
fa225349
d6f826ef
Changes
6
Hide whitespace changes
Inline
Side-by-side
asdf.asd
View file @
dd7a706c
...
...
@@ -75,7 +75,7 @@
:licence
"MIT"
:description
"Another System Definition Facility"
:long-description
"ASDF builds Common Lisp software organized into defined systems."
:version
"3.1.4.2
1
"
;; to be automatically updated by make bump-version
:version
"3.1.4.2
2
"
;; to be automatically updated by make bump-version
:depends-on
()
#+
asdf3
:encoding
#+
asdf3
:utf-8
:class
#+
asdf3.1
package-inferred-system
#-
asdf3.1
system
...
...
header.lisp
View file @
dd7a706c
;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; buffer-read-only: t; -*-
;;; This is ASDF 3.1.4.2
1
: Another System Definition Facility.
;;; This is ASDF 3.1.4.2
2
: Another System Definition Facility.
;;;
;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>.
...
...
uiop/run-program.lisp
View file @
dd7a706c
...
...
@@ -31,9 +31,9 @@ as either a recognizing function or a sequence of characters."
(
cond
((
and
good-chars
bad-chars
)
(
error
"only one of good-chars and bad-chars can be provided"
))
((
function
p
good-chars
)
((
type
p
good-chars
'
(
or
function
symbol
)
)
(
complement
good-chars
))
((
function
p
bad-chars
)
((
type
p
bad-chars
'
(
or
function
symbol
)
)
bad-chars
)
((
and
good-chars
(
typep
good-chars
'sequence
))
#'
(
lambda
(
c
)
(
not
(
find
c
good-chars
))))
...
...
@@ -76,10 +76,14 @@ for use within a MS Windows command-line, outputing to S."
(
otherwise
(
issue
(
char
x
i
))
(
setf
i
i+1
))))))
(
defun
easy-windows-character-p
(
x
)
"Is X an \"easy\" character that does not require quoting by the shell?"
(
or
(
alphanumericp
x
)
(
find
x
"+-_.,@:/="
)))
(
defun
escape-windows-token
(
token
&optional
s
)
"Escape a string TOKEN within double-quotes if needed
for use within a MS Windows command-line, outputing to S."
(
escape-token
token
:stream
s
:
ba
d-chars
#(
#\space
#\tab
#\"
)
:quote
nil
(
escape-token
token
:stream
s
:
goo
d-chars
'easy-windows-character-p
:quote
nil
:escaper
'escape-windows-token-within-double-quotes
))
(
defun
escape-sh-token-within-double-quotes
(
x
s
&key
(
quote
t
))
...
...
@@ -94,12 +98,12 @@ omit the outer double-quotes if key argument :QUOTE is NIL"
(
defun
easy-sh-character-p
(
x
)
"Is X an \"easy\" character that does not require quoting by the shell?"
(
or
(
alphanumericp
x
)
(
find
x
"+-_.,%@:/"
)))
(
or
(
alphanumericp
x
)
(
find
x
"+-_.,%@:/
=
"
)))
(
defun
escape-sh-token
(
token
&optional
s
)
"Escape a string TOKEN within double-quotes if needed
for use within a POSIX Bourne shell, outputing to S."
(
escape-token
token
:stream
s
:quote
#\"
:good-chars
#
'
easy-sh-character-p
(
escape-token
token
:stream
s
:quote
#\"
:good-chars
'easy-sh-character-p
:escaper
'escape-sh-token-within-double-quotes
))
(
defun
escape-shell-token
(
token
&optional
s
)
...
...
uiop/version.lisp-expr
View file @
dd7a706c
"3.1.4.2
1
"
"3.1.4.2
2
"
upgrade.lisp
View file @
dd7a706c
...
...
@@ -67,7 +67,7 @@ previously-loaded version of ASDF."
;; "3.4.5.67" would be a development version in the official branch, on top of 3.4.5.
;; "3.4.5.0.8" would be your eighth local modification of official release 3.4.5
;; "3.4.5.67.8" would be your eighth local modification of development version 3.4.5.67
(
asdf-version
"3.1.4.2
1
"
)
(
asdf-version
"3.1.4.2
2
"
)
(
existing-version
(
asdf-version
)))
(
setf
*asdf-version*
asdf-version
)
(
when
(
and
existing-version
(
not
(
equal
asdf-version
existing-version
)))
...
...
version.lisp-expr
View file @
dd7a706c
"3.1.4.2
1
"
"3.1.4.2
2
"
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