From 1306759d4566113df7fef53a0871dba4323fa965 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 7 Oct 2012 21:28:40 +0200 Subject: [PATCH] (SETF SLOT-VALUE) did not always return the assigned value --- src/clos/std-slot-value.lsp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/clos/std-slot-value.lsp b/src/clos/std-slot-value.lsp index 77d48c33f..69e6e14e8 100644 --- a/src/clos/std-slot-value.lsp +++ b/src/clos/std-slot-value.lsp @@ -240,7 +240,8 @@ (let ((slotd (find slot-name (class-slots class) :key #'slot-definition-name))) (if slotd (setf (slot-value-using-class class self slotd) value) - (slot-missing class self slot-name 'SETF value))))))) + (slot-missing class self slot-name 'SETF value)))))) + value) ;;; ;;; 2) Overloadable methods on which the previous functions are based