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

3.0.1.10: remove some unwanted trailing whitespace and tabs.

parent 5825d4ac
...@@ -74,7 +74,7 @@ ...@@ -74,7 +74,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.0.1.9" ;; to be automatically updated by make bump-version :version "3.0.1.10" ;; to be automatically updated by make bump-version
:depends-on () :depends-on ()
#+asdf3 :encoding #+asdf3 :utf-8 #+asdf3 :encoding #+asdf3 :utf-8
;; For most purposes, asdf itself specially counts as a builtin system. ;; For most purposes, asdf itself specially counts as a builtin system.
......
;;;; ------------------------------------------------------------------------- ;;;; -------------------------------------------------------------------------
;;; Internal hacks for backward-compatibility ;;; Internal hacks for backward-compatibility
(asdf/package:define-package :asdf/backward-internals (asdf/package:define-package :asdf/backward-internals
(:recycle :asdf/backward-internals :asdf) (:recycle :asdf/backward-internals :asdf)
......
;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*- ;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*-
;;; This is ASDF 3.0.1.9: Another System Definition Facility. ;;; This is ASDF 3.0.1.10: 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>.
......
...@@ -399,7 +399,7 @@ the action of OPERATION on COMPONENT in the PLAN")) ...@@ -399,7 +399,7 @@ the action of OPERATION on COMPONENT in the PLAN"))
:test 'equal :key 'component-find-path))) :test 'equal :key 'component-find-path)))
;;;; Incidental traversals ;;;; Incidental traversals
(with-upgradability () (with-upgradability ()
(defclass filtered-sequential-plan (sequential-plan) (defclass filtered-sequential-plan (sequential-plan)
((action-filter :initform t :initarg :action-filter :reader plan-action-filter) ((action-filter :initform t :initarg :action-filter :reader plan-action-filter)
......
...@@ -288,7 +288,7 @@ system names to pathnames of .asd files") ...@@ -288,7 +288,7 @@ system names to pathnames of .asd files")
(defvar *source-registry-parameter* nil) (defvar *source-registry-parameter* nil)
(defun initialize-source-registry (&optional (parameter *source-registry-parameter*)) (defun initialize-source-registry (&optional (parameter *source-registry-parameter*))
;; Record the parameter used to configure the registry ;; Record the parameter used to configure the registry
(setf *source-registry-parameter* parameter) (setf *source-registry-parameter* parameter)
;; Clear the previous registry database: ;; Clear the previous registry database:
(setf *source-registry* (make-hash-table :test 'equal)) (setf *source-registry* (make-hash-table :test 'equal))
......
...@@ -313,7 +313,7 @@ using READ within a WITH-SAFE-IO-SYNTAX, that represents the warnings currently ...@@ -313,7 +313,7 @@ using READ within a WITH-SAFE-IO-SYNTAX, that represents the warnings currently
WITH-COMPILATION-UNIT. One of three functions required for deferred-warnings support in ASDF." WITH-COMPILATION-UNIT. One of three functions required for deferred-warnings support in ASDF."
#+allegro #+allegro
(list :functions-defined excl::.functions-defined. (list :functions-defined excl::.functions-defined.
:functions-called excl::.functions-called.) :functions-called excl::.functions-called.)
#+clozure #+clozure
(mapcar 'reify-deferred-warning (mapcar 'reify-deferred-warning
(if-let (dw ccl::*outstanding-deferred-warnings*) (if-let (dw ccl::*outstanding-deferred-warnings*)
...@@ -355,7 +355,7 @@ One of three functions required for deferred-warnings support in ASDF." ...@@ -355,7 +355,7 @@ One of three functions required for deferred-warnings support in ASDF."
(declare (ignorable reified-deferred-warnings)) (declare (ignorable reified-deferred-warnings))
#+allegro #+allegro
(destructuring-bind (&key functions-defined functions-called) (destructuring-bind (&key functions-defined functions-called)
reified-deferred-warnings reified-deferred-warnings
(setf excl::.functions-defined. (setf excl::.functions-defined.
(append functions-defined excl::.functions-defined.) (append functions-defined excl::.functions-defined.)
excl::.functions-called. excl::.functions-called.
......
...@@ -398,7 +398,7 @@ ELEMENT-TYPE and EXTERNAL-FORMAT for the stream passed to the OUTPUT processor." ...@@ -398,7 +398,7 @@ ELEMENT-TYPE and EXTERNAL-FORMAT for the stream passed to the OUTPUT processor."
#+allegro #+allegro
(excl:run-shell-command (excl:run-shell-command
command command
:input nil :input nil
:output nil :output nil
:error-output :output ; write STDERR to output, too :error-output :output ; write STDERR to output, too
:wait t :wait t
......
...@@ -52,7 +52,7 @@ You can compare this string with e.g.: (ASDF:VERSION-SATISFIES (ASDF:ASDF-VERSIO ...@@ -52,7 +52,7 @@ You can compare this string with e.g.: (ASDF:VERSION-SATISFIES (ASDF:ASDF-VERSIO
;; "3.4.5.67" would be a development version in the official upstream of 3.4.5. ;; "3.4.5.67" would be a development version in the official upstream 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.0.1.9") (asdf-version "3.0.1.10")
(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