From c03d583edb4743c8be388f7fa74a8a3f688a6faa Mon Sep 17 00:00:00 2001 From: Gleefre Date: Mon, 31 Jul 2023 14:51:22 +0200 Subject: [PATCH] Fix (SETF GETF) --- src/list.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/list.lisp b/src/list.lisp index 5f206b71..2017ee7b 100644 --- a/src/list.lisp +++ b/src/list.lisp @@ -479,7 +479,7 @@ (when (eq indicator car) ;; TODO: should be cadr, needs a defsetf for that (setf (car (cdr tail)) new-value) - (return tail)))) + (return plist)))) (define-setf-expander getf (plist indicator &optional default) (multiple-value-bind (dummies vals newval setter getter)