Commit dd7a706c authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Merge branch 'master' into minimakefile

parents fa225349 d6f826ef
...@@ -75,7 +75,7 @@ ...@@ -75,7 +75,7 @@
:licence "MIT" :licence "MIT"
:description "Another System Definition Facility" :description "Another System Definition Facility"
:long-description "ASDF builds Common Lisp software organized into defined systems." :long-description "ASDF builds Common Lisp software organized into defined systems."
:version "3.1.4.21" ;; to be automatically updated by make bump-version :version "3.1.4.22" ;; to be automatically updated by make bump-version
:depends-on () :depends-on ()
#+asdf3 :encoding #+asdf3 :utf-8 #+asdf3 :encoding #+asdf3 :utf-8
:class #+asdf3.1 package-inferred-system #-asdf3.1 system :class #+asdf3.1 package-inferred-system #-asdf3.1 system
......
;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; buffer-read-only: t; -*- ;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; buffer-read-only: t; -*-
;;; This is ASDF 3.1.4.21: Another System Definition Facility. ;;; This is ASDF 3.1.4.22: Another System Definition Facility.
;;; ;;;
;;; Feedback, bug reports, and patches are all welcome: ;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>. ;;; please mail to <asdf-devel@common-lisp.net>.
......
...@@ -31,9 +31,9 @@ as either a recognizing function or a sequence of characters." ...@@ -31,9 +31,9 @@ as either a recognizing function or a sequence of characters."
(cond (cond
((and good-chars bad-chars) ((and good-chars bad-chars)
(error "only one of good-chars and bad-chars can be provided")) (error "only one of good-chars and bad-chars can be provided"))
((functionp good-chars) ((typep good-chars '(or function symbol))
(complement good-chars)) (complement good-chars))
((functionp bad-chars) ((typep bad-chars '(or function symbol))
bad-chars) bad-chars)
((and good-chars (typep good-chars 'sequence)) ((and good-chars (typep good-chars 'sequence))
#'(lambda (c) (not (find c good-chars)))) #'(lambda (c) (not (find c good-chars))))
...@@ -76,10 +76,14 @@ for use within a MS Windows command-line, outputing to S." ...@@ -76,10 +76,14 @@ for use within a MS Windows command-line, outputing to S."
(otherwise (otherwise
(issue (char x i)) (setf i i+1)))))) (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) (defun escape-windows-token (token &optional s)
"Escape a string TOKEN within double-quotes if needed "Escape a string TOKEN within double-quotes if needed
for use within a MS Windows command-line, outputing to S." for use within a MS Windows command-line, outputing to S."
(escape-token token :stream s :bad-chars #(#\space #\tab #\") :quote nil (escape-token token :stream s :good-chars 'easy-windows-character-p :quote nil
:escaper 'escape-windows-token-within-double-quotes)) :escaper 'escape-windows-token-within-double-quotes))
(defun escape-sh-token-within-double-quotes (x s &key (quote t)) (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" ...@@ -94,12 +98,12 @@ omit the outer double-quotes if key argument :QUOTE is NIL"
(defun easy-sh-character-p (x) (defun easy-sh-character-p (x)
"Is X an \"easy\" character that does not require quoting by the shell?" "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) (defun escape-sh-token (token &optional s)
"Escape a string TOKEN within double-quotes if needed "Escape a string TOKEN within double-quotes if needed
for use within a POSIX Bourne shell, outputing to S." 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)) :escaper 'escape-sh-token-within-double-quotes))
(defun escape-shell-token (token &optional s) (defun escape-shell-token (token &optional s)
......
...@@ -67,7 +67,7 @@ previously-loaded version of ASDF." ...@@ -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.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.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 ;; "3.4.5.67.8" would be your eighth local modification of development version 3.4.5.67
(asdf-version "3.1.4.21") (asdf-version "3.1.4.22")
(existing-version (asdf-version))) (existing-version (asdf-version)))
(setf *asdf-version* asdf-version) (setf *asdf-version* asdf-version)
(when (and existing-version (not (equal asdf-version existing-version))) (when (and existing-version (not (equal asdf-version existing-version)))
......
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