Commit 57276ca9 authored by Robert Goldman's avatar Robert Goldman

Merge branch 'launchpad-1445638'

* launchpad-1445638:
  Fix for launchpad bug 1445638.
parents bd9f29a6 ecbd83d5
......@@ -250,8 +250,9 @@ system names contained using COERCE-NAME. Return the result."
:name name :source-file source-file))
(remove-plist-keys '(:defsystem-depends-on :class) options))
(defsystem-dependencies (loop :for spec :in defsystem-depends-on :collect
(resolve-dependency-spec nil spec))))
(defsystem-dependencies (loop :for spec :in defsystem-depends-on
:when (resolve-dependency-spec nil spec)
:collect :it)))
;; cache defsystem-depends-on in canonical form
(when defsystem-depends-on
(setf component-options
;;-*- Lisp -*-
(in-package :asdf-test)
(def-test-system test-defsystem-depends-on-1
:defsystem-depends-on (test-asdf/l-file)
:default-component-class "l-file:cl-source-file.l"
......@@ -32,6 +34,7 @@
(defparameter *newsym* (gentemp (symbol-name 'feature) :keyword))
;;; FIXME: the following form triggers bug
(eval `(def-test-system test-defsystem-depends-on-4
:defsystem-depends-on ((:feature ,*newsym* "test-defsystem-depends-on-3"))))
(assert (find-system "test-defsystem-depends-on-4"))
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