mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-21 01:00:38 -07:00
Code Issues Projects Releases Packages Wiki Activity

Fixed typo when compiling slot access to structures.

Browse source
This commit is contained in:
jgarcia 2006-11-24 16:54:31 +00:00
parent 8c95aabc42
commit f9602f7310
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpeval.lsp
View file

@ -73,7 +73,7 @@
(endp (cdr args)))
(case (car fd)
(VECTOR (c1expr `(svref ,(car args) ,(cdr fd)))) ; Beppe3
(LIST (c1expr `(elt ,(cdr fd) ,(car args))))
(LIST (c1expr `(elt ,(car args) ,(cdr fd))))
(t (c1structure-ref1 (car args) (car fd) (cdr fd)))
)
)