From c5cb09f3cb62771028dec0d6b0d7523866d393d4 Mon Sep 17 00:00:00 2001
From: Marius Gerbershagen <marius.gerbershagen@gmail.com>
Date: Sat, 13 Feb 2021 22:22:50 +0100
Subject: [PATCH] cmp: fix typo

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

diff --git a/src/cmp/cmpwt.lsp b/src/cmp/cmpwt.lsp
index f7e867920..17869b4f0 100644
--- a/src/cmp/cmpwt.lsp
+++ b/src/cmp/cmpwt.lsp
@@ -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))