Changeset 643

Timestamp:

Mar 8, 2004, 5:58:41 AM (21 years ago)

Author:

Gary Byers

Message:

Set GF lfun-bits if continued after congruency error.
SLOTS-CLASS has to look for primary-p-ness.

File:

• trunk/ccl/level-1/l1-clos-boot.lisp (modified) (2 diffs)

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

@@ -754 +754 @@
           (remove-method gf (car methods))
           (return))))
-    (%set-defgeneric-keys gf nil))
+    (%set-defgeneric-keys gf nil)
+    (inner-lfun-bits gf (%ilogior (%ilsl $lfbits-gfn-bit 1)
+                                  (%ilogand $lfbits-args-mask
+                                            (lfun-bits (%method-function method))))))
   gf)
 
@@ -2047 +2050 @@
 
 (defun %class-primary-p (class)
-  (if (typep class 'std-class)
+  (if (typep class 'slots-class)
     (%class-get class :primary-p)
     t))