Commit 70b7a928 authored by pfdietz's avatar pfdietz

Patched problem with definition of OTHERWISE type that was blocking allegro CL...

Patched problem with definition of OTHERWISE type that was blocking allegro CL from running the tests.  This should be further modified to remove the package lock on the COMMON-LISP package.
parent 70ea7c29
......@@ -1391,4 +1391,11 @@ the condition to go uncaught if it cannot be classified."
(defun with-package-iterator-all (packages)
(test-with-package-iterator packages :internal :external :inherited))
(deftype otherwise () nil) ;; used in testing TYPECASE
#-allegro (deftype otherwise () nil) ;; used in testing TYPECASE
#+allegro
(eval-when (load compile)
(handler-bind
((error #'(lambda (c) (continue))))
(deftype otherwise () nil)))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment