Commit 7e1d7ad0 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

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

parent 6afb925b

component.lisp

+1 −2
Original line number Diff line number Diff line
@@ -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))