From f2a2d29eabf31d679eaaf957736d008985ad7325 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Mon, 10 Dec 2012 03:05:57 -0500 Subject: [PATCH] 2.26.18: Make it easier to name dependencies not in the parent module, by adding a method to find-component that uses the second argument when it's a component, discards the first argument. This makes it easier to build non-canonical dependency graphs. --- asdf.asd | 2 +- asdf.lisp | 8 ++++++-- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/asdf.asd b/asdf.asd index 3e9d3e49..25e1d9b5 100644 --- a/asdf.asd +++ b/asdf.asd @@ -14,7 +14,7 @@ :licence "MIT" :description "Another System Definition Facility" :long-description "ASDF builds Common Lisp software organized into defined systems." - :version "2.26.17" ;; to be automatically updated by bin/bump-revision + :version "2.26.18" ;; to be automatically updated by bin/bump-revision :depends-on () :components ((:file "asdf"))) diff --git a/asdf.lisp b/asdf.lisp index 7f4c3b66..2091ca87 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -1,5 +1,5 @@ ;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; coding: utf-8 -*- -;;; This is ASDF 2.26.17: Another System Definition Facility. +;;; This is ASDF 2.26.18: Another System Definition Facility. ;;; ;;; Feedback, bug reports, and patches are all welcome: ;;; please mail to <asdf-devel@common-lisp.net>. @@ -118,7 +118,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.26.17") + (asdf-version "2.26.18") (existing-asdf (find-class 'component nil)) (existing-version *asdf-version*) (already-there (equal asdf-version existing-version))) @@ -1987,6 +1987,10 @@ PREVIOUS-TIME when not null is the time at which the PREVIOUS system was loaded. (defmethod find-component ((module module) (name cons)) (find-component (find-component module (car name)) (cdr name))) +(defmethod find-component ((base component) (actual component)) + (declare (ignorable base)) + actual) + ;;; component subclasses -- GitLab