mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 22:01:36 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed compiler macroexpander for STRUCTURE-SET

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-12-30 21:59:34 +01:00
parent 60825360ea
commit 0e2095753a
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpstructures.lsp
View file

@ -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)"