Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

Diff of /src/ansi-tests/conditions.lisp [661db1] .. [e5072a] Maximize Restore

  Switch to side-by-side view

--- a/src/ansi-tests/conditions.lisp
+++ b/src/ansi-tests/conditions.lisp
@@ -33,7 +33,7 @@
 
 (check-for-bug :conditions-legacy-31
   (defun check-superclasses (class expected)
-    (let ((expected (list* #-ecl class 't
+    (let ((expected (list* class 't
                            #+(or CLISP ALLEGRO ecl) 'standard-object
                            #+(or cmu sbcl) 'instance
                            'condition expected))