2.014.10: remove debugging declaration. Catch bad versions without an error.

  :licence "MIT"

  :description "Another System Definition Facility"

  :long-description "ASDF builds Common Lisp software organized into defined systems."

  :version "2.014.9" ;; to be automatically updated by bin/bump-revision

  :version "2.014.10" ;; to be automatically updated by bin/bump-revision

  :depends-on ()

  :components

  ((:file "asdf")

;;; -*- mode: common-lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*-

;;; This is ASDF 2.014.9: Another System Definition Facility.

;;; This is ASDF 2.014.10: Another System Definition Facility.

;;;

;;; Feedback, bug reports, and patches are all welcome:

;;; please mail to <asdf-devel@common-lisp.net>.

    (make-package :asdf :use '(:common-lisp)))

  ;;; Implementation-dependent tweaks

  ;; (declaim (optimize (speed 2) (debug 2) (safety 3))) ; NO: rely on the implementation defaults.

  (declaim (optimize (speed 2) (debug 3) (safety 3))) ; XXXXX debug only

  #+allegro

  (setf excl::*autoload-package-name-alist*

        (remove "asdf" excl::*autoload-package-name-alist*

         ;; "2.345.6" would be a development version in the official upstream

         ;; "2.345.0.7" would be your seventh local modification of official release 2.345

         ;; "2.345.6.7" would be your seventh local modification of development version 2.345.6

         (asdf-version "2.014.9")

         (asdf-version "2.014.10")

         (existing-asdf (fboundp 'find-system))

         (existing-version *asdf-version*)

         (already-there (equal asdf-version existing-version)))

(defclass component ()

  ((name :accessor component-name :initarg :name :type string :documentation

         "Component name: designator for a string composed of portable pathname characters")

   (version :accessor component-version :initarg :version :type string)

   (version :accessor component-version :initarg :version) ;; :type string -- not until we fix all systems that don't use it correctly!

   (description :accessor component-description :initarg :description)

   (long-description :accessor component-long-description :initarg :long-description)

   ;; This one below is used by POIU - http://www.cliki.net/poiu

  "Parse a version string as a series of natural integers separated by dots.

Return a (non-null) list of integers if the string is valid, NIL otherwise.

NB: ignores leading zeroes, and so doesn't distinguish between 2.003 and 2.3"

  (and (loop :for prev = nil :then c :for c :across string

  (and

   (stringp string)

   (loop :for prev = nil :then c :for c :across string

     :always (or (digit-char-p c)

                 (and (eql c #\.) prev (not (eql prev #\.))))

     :finally (return (and c (digit-char-p c))))

              perform explain output-files operation-done-p

              weakly-depends-on

              depends-on serial in-order-to

              (version nil versionp)

              ;; list ends

              &allow-other-keys) options

    (declare (ignorable perform explain output-files operation-done-p))

                       (class-for-type parent type))))

      (error 'duplicate-names :name name))

    (when versionp

      (unless (parse-version version)

        (warn (compatfmt "~@<Invalid version ~S for component ~S~@[ of ~S~]~@:>")

              version name parent)))

    (let* ((other-args (remove-keys

                        '(components pathname default-component-class

                          perform explain output-files operation-done-p