about summary refs log tree commit diff
path: root/lisp
diff options
context:
space:
mode:
authorsterni <sternenseemann@systemli.org>2021-08-13T09·54+0200
committersterni <sternenseemann@systemli.org>2021-08-14T14·46+0000
commit5711b4ee1629d5db51eb3c8813eb81ecdb547223 (patch)
tree58af41c1672ea45b176f4e24a09da3b5d7369126 /lisp
parent17a75dfc42f15d897937f5fb245d1c33eb185a82 (diff)
fix(lisp/klatre): declare ignore unused variables r/2731
CCL refuses to compile anything with undeclared ignored variables, so we
need to be more verbose here.

Change-Id: I9bf32e0bc303716d3cd6fe7b525d1434062d69eb
Reviewed-on: https://cl.tvl.fyi/c/depot/+/3348
Tested-by: BuildkiteCI
Reviewed-by: grfn <grfn@gws.fyi>
Diffstat (limited to 'lisp')
-rw-r--r--lisp/klatre/klatre.lisp5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/klatre/klatre.lisp b/lisp/klatre/klatre.lisp
index 57ccde70e46b..0b986ac25125 100644
--- a/lisp/klatre/klatre.lisp
+++ b/lisp/klatre/klatre.lisp
@@ -1,7 +1,8 @@
 (in-package #:klatre)
 (declaim (optimize (safety 3)))
 
-(defmacro comment (&rest _))
+(defmacro comment (&rest _)
+  (declare (ignore _)))
 
 (defun posp (n) (> n 0))
 
@@ -104,7 +105,7 @@ separated by SEP."
   "Attempt to parse STR as an integer, returning nil if it is invalid."
   (check-type str string)
   (handler-case (parse-integer str)
-    (sb-int:simple-parse-error (_) nil)))
+    (sb-int:simple-parse-error (_) (declare (ignore _)) nil)))
 
 ;;;
 ;;; Function utilities