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

Fixed typo in maybe-optimize-structure-access (J. James)

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-01-24 22:27:48 +01:00
parent 4a82e0ab54
commit 4d8a8edf26
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

@ -37,7 +37,7 @@
(inline-possible fname)
(policy-inline-slot-access-p))
;(format t "~%;;; Optimizing structure accessor ~A" fname)
(let (struture-type slot-index)
(let (structure-type slot-index)
(unless (and (consp slot-description)
(setf structure-type (car slot-description)
slot-index (cdr slot-description))