From 5e838bf46d0089c43ebd3ea014a207c403e29c61 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Mon, 6 Jan 2020 16:39:38 +0100 Subject: [PATCH] Ignore unused arguments --- src/early-types.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/early-types.lisp b/src/early-types.lisp index 9920042..6356385 100644 --- a/src/early-types.lisp +++ b/src/early-types.lisp @@ -522,7 +522,7 @@ Signals an error if the type cannot be resolved." (defgeneric expand-into-foreign-memory (value type ptr) (:method (value type ptr) - (declare (ignore type)) + (declare (ignore type ptr)) value)) (defmethod expand-into-foreign-memory :around @@ -532,7 +532,7 @@ Signals an error if the type cannot be resolved." (call-next-method))) (defmethod expand-into-foreign-memory (value (type translatable-foreign-type) ptr) - (declare (ignore value)) + (declare (ignore value ptr)) *runtime-translator-form*) ;;; EXPAND-TO-FOREIGN-DYN -- 2.11.4.GIT