Commit 359f610b authored by Francois-Rene Rideau's avatar Francois-Rene Rideau Committed by Robert P. Goldman
Browse files

Avoid an error-in-warning while testing for whether a system is builtin:

the target system for a version check might not even be present!
(That would probably be an error later, to be handled then,
but shouldn't cause an unhandled error now.)
parent 8ee27066
...@@ -104,7 +104,7 @@ ...@@ -104,7 +104,7 @@
(warn (compatfmt "~@<Invalid :version specifier ~S~@[ for component ~S~]~@[ in ~S~]~@[ from file ~S~]~@[, ~A~]~@:>") (warn (compatfmt "~@<Invalid :version specifier ~S~@[ for component ~S~]~@[ in ~S~]~@[ from file ~S~]~@[, ~A~]~@:>")
form component parent pathname continuation)) form component parent pathname continuation))
(invalid-parse (control &rest args) (invalid-parse (control &rest args)
(unless (builtin-system-p (find-component parent component)) (unless (if-let (target (find-component parent component)) (builtin-system-p target))
(apply 'warn control args) (apply 'warn control args)
(invalid)))) (invalid))))
(if-let (v (typecase form (if-let (v (typecase form
......
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