Changeset 890

Timestamp:

Oct 1, 2004, 4:03:59 AM (20 years ago)

Author:

Gary Byers

Message:

if a CERROR offers to change the class of an existing GF, actually call CHANGE-CLASS to do so

File:

• trunk/ccl/level-1/l1-clos.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-clos.lisp

@@ -1332 +1332 @@
       (cerror (format nil "Change the class of ~s to ~s." gf gf-class)
               "The class of the existing generic function ~s is not ~s"
-              gf gf-class))
+              gf gf-class)
+      (change-class gf gf-class))
     (apply #'reinitialize-instance gf initargs)))