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

cmp: fix typo

Browse source
This commit is contained in:
Marius Gerbershagen 2021-02-13 22:22:50 +01:00
parent 84acbebd7f
commit c5cb09f3cb
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpwt.lsp
View file

@ -191,7 +191,7 @@
:start1 old-loc :start2 (1+ old-loc))
(decf (fill-pointer *temporary-objects*))
(loop for i from old-loc below (length *temporary-objects*)
for vv-record = (svref *temporary-objects* i)
for vv-record = (aref *temporary-objects* i)
do (decf (vv-location vv-record)))))
item))