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

2.29.5: more fixing of exports, with test added. 

Thanks to stassats for initial test code.
parent 7d6d515a

asdf.asd

+1 −1
Original line number Diff line number Diff line
@@ -74,7 +74,7 @@ 
  :licence "MIT"

  :description "Another System Definition Facility"

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

  :version "2.29.4" ;; to be automatically updated by make bump-version

  :version "2.29.5" ;; to be automatically updated by make bump-version

  :depends-on ()

  #+asdf3 :encoding #+asdf3 :utf-8

  ;; For most purposes, asdf itself specially counts as a builtin system.

find-system.lisp

+3 −3
Original line number Diff line number Diff line
@@ -17,7 +17,7 @@ 
   #:*central-registry* #:probe-asd #:sysdef-central-registry-search

   #:find-system-if-being-defined #:*systems-being-defined*

   #:contrib-sysdef-search #:sysdef-find-asdf ;; backward compatibility symbols, functions removed

   #:sysdef-find-preloaded-system #:register-preloaded-system #:*preloaded-systems*

   #:sysdef-preloaded-system-search #:register-preloaded-system #:*preloaded-systems*

   #:clear-defined-systems #:*defined-systems*

   ;; defined in source-registry, but specially mentioned here:

   #:initialize-source-registry #:sysdef-source-registry-search))
@@ -139,7 +139,7 @@ called with an object of type asdf:system." 
           (remove-if #'(lambda (x) (member x *system-definition-search-functions*))

                      '(sysdef-central-registry-search

                        sysdef-source-registry-search

                        sysdef-find-preloaded-systems)))))

                        sysdef-preloaded-system-search)))))

  (cleanup-system-definition-search-functions)



  (defun search-for-system-definition (system)
@@ -344,7 +344,7 @@ PREVIOUS-TIME when not null is the time at which the PREVIOUS system was loaded. 


  (defvar *preloaded-systems* (make-hash-table :test 'equal))



  (defun sysdef-find-preloaded-systems (requested)

  (defun sysdef-preloaded-system-search (requested)

    (let ((name (coerce-name requested)))

      (multiple-value-bind (keys foundp) (gethash name *preloaded-systems*)

        (when foundp

header.lisp

+1 −1
Original line number Diff line number Diff line 
;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*-

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

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

;;;

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

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

plan.lisp

+1 −1
Original line number Diff line number Diff line
@@ -14,7 +14,7 @@ 
   #:circular-dependency #:circular-dependency-actions

   #:node-for #:needed-in-image-p

   #:action-index #:action-planned-p #:action-valid-p

   #:plan-record-dependency #:visiting-action-p

   #:plan-record-dependency

   #:normalize-forced-systems #:action-forced-p #:action-forced-not-p

   #:map-direct-dependencies #:reduce-direct-dependencies #:direct-dependencies

   #:visit-dependencies #:compute-action-stamp #:traverse-action

source-registry.lisp

+2 −2
Original line number Diff line number Diff line
@@ -6,9 +6,9 @@ 
  (:recycle :asdf/source-registry :asdf)

  (:use :asdf/common-lisp :asdf/driver :asdf/upgrade :asdf/find-system)

  (:export

   #:*source-registry* #:*source-registry-parameter* #:*default-source-registries*

   #:*source-registry-parameter* #:*default-source-registries*

   #:invalid-source-registry

   #:source-registry #:source-registry-initialized-p

   #:source-registry-initialized-p

   #:initialize-source-registry #:clear-source-registry #:*source-registry*

   #:ensure-source-registry #:*source-registry-parameter*

   #:*default-source-registry-exclusions* #:*source-registry-exclusions*