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