From d08acb9afbaaa342be997f5c19f0d27b12379809 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Tue, 16 Apr 2013 17:05:38 -0400
Subject: [PATCH] Fix test-encodings for ABCL.

---
 test/test-encodings.script | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/test/test-encodings.script b/test/test-encodings.script
index 2012138b..0d9aa54d 100644
--- a/test/test-encodings.script
+++ b/test/test-encodings.script
@@ -40,8 +40,8 @@
 (leave-test "No Unicode support to test on this lisp implementation" 0)
 
 #+abcl
-(let ((version (lisp-implementation-version))
-      (version-nums (subseq version 0 (position-if-not (lambda (x) (find x "0123456789.")) version))))
+(let* ((version (lisp-implementation-version))
+       (version-nums (subseq version 0 (position-if-not (lambda (x) (find x "0123456789.")) version))))
   (when (version< version-nums "1.1.2")
     (leave-test "Your old ABCL is known to fail this test script, so skipping it." 0)))
 
-- 
GitLab