From 99fe2a2643ce67f04a908ffd3fe07746860486f0 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 26 Aug 2020 11:28:18 +0200 Subject: [PATCH] Remove side-effect-free markup for assoc-default * lisp/subr.el (assoc-default): assoc-default isn't side-effect-free, because it takes a :test parameter that can do anything (bug#37943). --- lisp/subr.el | 1 - 1 file changed, 1 deletion(-) diff --git a/lisp/subr.el b/lisp/subr.el index 660367642aa..08ff38ff8c1 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -766,7 +766,6 @@ If that is non-nil, the element matches; then `assoc-default' If no element matches, the value is nil. If TEST is omitted or nil, `equal' is used." - (declare (side-effect-free t)) (let (found (tail alist) value) (while (and tail (not found)) (let ((elt (car tail))) -- 2.39.2