Loading asdf.asd +1 −1 Original line number Diff line number Diff line Loading @@ -14,7 +14,7 @@ :licence "MIT" :description "Another System Definition Facility" :long-description "ASDF builds Common Lisp software organized into defined systems." :version "2.20.21" ;; to be automatically updated by bin/bump-revision :version "2.20.22" ;; to be automatically updated by bin/bump-revision :depends-on () :components ((:file "asdf") Loading asdf.lisp +14 −4 Original line number Diff line number Diff line ;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; coding: utf-8 -*- ;;; This is ASDF 2.20.21: Another System Definition Facility. ;;; This is ASDF 2.20.22: Another System Definition Facility. ;;; ;;; Feedback, bug reports, and patches are all welcome: ;;; please mail to <asdf-devel@common-lisp.net>. Loading Loading @@ -116,7 +116,7 @@ ;; "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.20.21") (asdf-version "2.20.22") (existing-asdf (find-class 'component nil)) (existing-version *asdf-version*) (already-there (equal asdf-version existing-version))) Loading Loading @@ -248,7 +248,8 @@ (#:defsystem #:oos #:operate #:find-system #:locate-system #:run-shell-command #:system-definition-pathname #:with-system-definitions #:search-for-system-definition #:find-component #:component-find-path #:compile-system #:load-system #:load-systems #:test-system #:clear-system #:compile-system #:load-system #:load-systems #:require-system #:test-system #:clear-system #:operation #:compile-op #:load-op #:load-source-op #:test-op #:feature #:version #:version-satisfies #:upgrade-asdf Loading Loading @@ -349,7 +350,7 @@ #:clear-source-registry #:ensure-source-registry #:process-source-registry #:system-registered-p #:registered-systems #:system-registered-p #:registered-systems #:loaded-systems #:resolve-location #:asdf-message #:user-output-translations-pathname Loading Loading @@ -2744,6 +2745,15 @@ See OPERATE for details." (defun* load-systems (&rest systems) (map () 'load-system systems)) (defun component-loaded-p (c) (and (gethash 'load-op (component-operation-times (find-component c nil))) t)) (defun loaded-systems () (remove-if-not 'component-loaded-p (registered-systems))) (defun require-system (s) (load-system s :force-not (loaded-systems))) (defun* compile-system (system &rest args &key force verbose version &allow-other-keys) "Shorthand for `(asdf:operate 'asdf:compile-op system)`. See OPERATE Loading Loading
asdf.asd +1 −1 Original line number Diff line number Diff line Loading @@ -14,7 +14,7 @@ :licence "MIT" :description "Another System Definition Facility" :long-description "ASDF builds Common Lisp software organized into defined systems." :version "2.20.21" ;; to be automatically updated by bin/bump-revision :version "2.20.22" ;; to be automatically updated by bin/bump-revision :depends-on () :components ((:file "asdf") Loading
asdf.lisp +14 −4 Original line number Diff line number Diff line ;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; coding: utf-8 -*- ;;; This is ASDF 2.20.21: Another System Definition Facility. ;;; This is ASDF 2.20.22: Another System Definition Facility. ;;; ;;; Feedback, bug reports, and patches are all welcome: ;;; please mail to <asdf-devel@common-lisp.net>. Loading Loading @@ -116,7 +116,7 @@ ;; "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.20.21") (asdf-version "2.20.22") (existing-asdf (find-class 'component nil)) (existing-version *asdf-version*) (already-there (equal asdf-version existing-version))) Loading Loading @@ -248,7 +248,8 @@ (#:defsystem #:oos #:operate #:find-system #:locate-system #:run-shell-command #:system-definition-pathname #:with-system-definitions #:search-for-system-definition #:find-component #:component-find-path #:compile-system #:load-system #:load-systems #:test-system #:clear-system #:compile-system #:load-system #:load-systems #:require-system #:test-system #:clear-system #:operation #:compile-op #:load-op #:load-source-op #:test-op #:feature #:version #:version-satisfies #:upgrade-asdf Loading Loading @@ -349,7 +350,7 @@ #:clear-source-registry #:ensure-source-registry #:process-source-registry #:system-registered-p #:registered-systems #:system-registered-p #:registered-systems #:loaded-systems #:resolve-location #:asdf-message #:user-output-translations-pathname Loading Loading @@ -2744,6 +2745,15 @@ See OPERATE for details." (defun* load-systems (&rest systems) (map () 'load-system systems)) (defun component-loaded-p (c) (and (gethash 'load-op (component-operation-times (find-component c nil))) t)) (defun loaded-systems () (remove-if-not 'component-loaded-p (registered-systems))) (defun require-system (s) (load-system s :force-not (loaded-systems))) (defun* compile-system (system &rest args &key force verbose version &allow-other-keys) "Shorthand for `(asdf:operate 'asdf:compile-op system)`. See OPERATE Loading