From 5711b4ee1629d5db51eb3c8813eb81ecdb547223 Mon Sep 17 00:00:00 2001 From: sterni Date: Fri, 13 Aug 2021 11:54:35 +0200 Subject: fix(lisp/klatre): declare ignore unused variables 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 --- lisp/klatre/klatre.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lisp/klatre') diff --git a/lisp/klatre/klatre.lisp b/lisp/klatre/klatre.lisp index 57ccde70e4..0b986ac251 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 -- cgit 1.4.1