Improved test to allow lisp with versions.

test.ros

@@ -29,6 +29,13 @@ exec ros -Q -- $0 "$@"
     ("ecl" . "ECL")))
 
 
+(defun cut-before (char text)
+  (let ((pos (position char text)))
+    (if pos
+        (subseq text 0 pos)
+        text)))
+
+
 (defun main (&rest argv)
   (declare (ignorable argv))
   (handler-bind ((error (lambda (c)
@@ -41,7 +48,8 @@ exec ros -Q -- $0 "$@"
       (unless needed-lisp
         (error "Env variable LISP was not set."))
 
-      (let ((expected (cdr (assoc needed-lisp *lisps* :test #'string-equal)))
+      (let ((expected (or (cdr (assoc needed-lisp *lisps* :test #'string-equal))
+                          (cdr (assoc (cut-before #\/ needed-lisp) *lisps* :test #'string-equal))))
             (real-implementation (lisp-implementation-type)))
         (unless expected
           (error "This test does not support LISP=~A. The real-implementation=~A."