Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
...@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment