Fix the testsuite for Allegro CL modern mode - instead of capitalized RETURN-FROM use return-from

test/test.lisp

@@ -19,7 +19,7 @@
     (handler-bind ((invoked (lambda (i)
                               (let ((invocation (cons (method i) (args i))))
                                 (when (equalp invocation expected-invocation)
-                                  (RETURN-FROM assert-invoked-impl nil))
+                                  (return-from assert-invoked-impl nil))
                                 (push invocation actual-invocations)))))
       (funcall body-fn))
     (let ((*package* (find-package :keyword))) ; ensures package prefixes are printed