Commit 68065400 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

1.101: handle enough-component-spec correctly.

parent 1f087347
......@@ -514,11 +514,13 @@
(let ((pn (enough-namestring (normalize-pathname-directory
(asdf:component-pathname c))))
(type (asdf:source-file-type c (asdf:component-system c))))
(values (strip-extension pn type) pn)))
(values (strip-extension pn type) pn type)))
(defun enough-component-spec (c &optional pn-p)
(multiple-value-bind (name pn) (normalized-component-name c)
(write-to-string name)))
(defun enough-component-spec (c)
(multiple-value-bind (name pn type) (normalized-component-name c)
(if (or (null type) (equal (concatenate 'string name "." type) pn))
(write-to-string name)
(format nil "~S :pathname #p~S" name pn))))
;; Used by additional-dependencies* and overridden-dependencies*.
(defun map-over-instrumented-component-and-parents (component slot-name)
......@@ -562,7 +564,7 @@
(slot-value component 'translated-name))
(and include-pathname
(slot-value component 'translated-pathname)))
(enough-component-spec component include-pathname)))
(enough-component-spec component)))
;; Used only by maybe-translated-component-class.
(defun coerce-name (maybe-class)
......
......@@ -31,7 +31,7 @@
(in-package #:asdf-dependency-grovel)
(defparameter *asdf-dependency-grovel-version* "1.100")
(defparameter *asdf-dependency-grovel-version* "1.101")
(defparameter *asdf-version-required-by-adg* "1.702")
#-asdf2
......
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