From 0e2095753a6262970fa4abbc02ea3579f53b557a Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Fri, 30 Dec 2011 21:59:34 +0100
Subject: [PATCH] Fixed compiler macroexpander for STRUCTURE-SET

---
 src/cmp/cmpstructures.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/cmp/cmpstructures.lsp b/src/cmp/cmpstructures.lsp
index ae649d853..4e55be339 100644
--- a/src/cmp/cmpstructures.lsp
+++ b/src/cmp/cmpstructures.lsp
@@ -100,7 +100,7 @@
 		  `(ext:compiler-typecase
 		    ,aux
 		    (,structure-name ,form)
-		    (t (ffi:c-inline (,aux ,structure-name ,index ,value)
+		    (t (ffi:c-inline (,aux ',structure-name ,index ,value)
 				     (:object :object :fixnum :object)
 				     :object
 				     "ecl_structure_set(#0,#1,#2,#3)"