From 359f610b8f51ee7b75c6cb9205c2604d6621ad6f Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Tue, 25 Feb 2014 06:15:05 -0500 Subject: [PATCH] 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.) --- parse-defsystem.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/parse-defsystem.lisp b/parse-defsystem.lisp index 496486c8..2cf2b02c 100644 --- a/parse-defsystem.lisp +++ b/parse-defsystem.lisp @@ -104,7 +104,7 @@ (warn (compatfmt "~@<Invalid :version specifier ~S~@[ for component ~S~]~@[ in ~S~]~@[ from file ~S~]~@[, ~A~]~@:>") form component parent pathname continuation)) (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) (invalid)))) (if-let (v (typecase form -- GitLab