From 35bb8b29c3e59efcdc7299b34b3240db24cf196a Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Wed, 15 Dec 2004 13:09:16 +0000
Subject: [PATCH] Return value in SETF forms (M.Goffioul)

---
 src/c/assignment.d | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/c/assignment.d b/src/c/assignment.d
index 026e6086a..c4c777ac1 100644
--- a/src/c/assignment.d
+++ b/src/c/assignment.d
@@ -55,7 +55,7 @@ cl_set(cl_object var, cl_object val)
 		si_rem_sysprop(sym, @'si::setf-method');
 		si_rem_sysprop(sym, @'si::setf-update');
 	}
-	@(return fname)
+	@(return def)
 @)
 
 cl_object