Skip to content
Snippets Groups Projects
Commit 7e1d7ad0 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Remove unnecessary (declare (ignorable ...)).

parent 6afb925b
No related branches found
No related tags found
No related merge requests found
......@@ -273,9 +273,8 @@ children.")))
;;;; version-satisfies
(with-upgradability ()
;; short-circuit testing of null version specifications.
;; this is an all-pass
;; this is an all-pass, without warning
(defmethod version-satisfies :around ((c t) (version null))
(declare (ignorable c version))
t)
(defmethod version-satisfies ((c component) version)
(unless (and version (slot-boundp c 'version) (component-version c))
......
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