ctype: missed ignores

s-expressionists · Dec 20, 2023 · 30af597 · 30af597
1 parent 1f67562
commit 30af597
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/Ctype/default.lisp b/Ctype/default.lisp
@@ -515,9 +515,12 @@
   `(cl:satisfies ,fname))
 
 (defmethod satisfiesp (ct sys)
+  (declare (ignore sys))
   (and (cl:consp ct) (cl:consp (cdr ct)) (cl:null (cddr ct))))
 
-(defmethod satisfies-fname (ct sys) (second ct))
+(defmethod satisfies-fname (ct sys)
+  (declare (ignore sys))
+  (second ct))
 
 (defmethod keyword (sys) (declare (ignore sys)) 'cl:keyword)