Changeset 14862

Timestamp:

Jul 5, 2011, 9:56:20 AM (13 years ago)

Author:

Gary Byers

Message:

UNOPTIMIZE-DEPENDENTS undoes reader-method optimization.

File:

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

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

@@ -307 +307 @@
         do (etypecase obj
              (standard-generic-function
-              (clear-gf-dispatch-table (%gf-dispatch-table obj))
-              (compute-dcode obj)))))
+              (let* ((dt (%gf-dispatch-table obj))
+                     (argnum (%gf-dispatch-table-argnum dt)))
+                (when (< argnum 0)
+                  (setf (%gf-dispatch-table-argnum dt) (lognot argnum)
+                        (%gf-dcode obj) (%gf-dispatch-table-gf dt)
+                        (%gf-dispatch-table-gf dt) obj)
+                  (clear-gf-dispatch-table dt)))))))
 
 (defun update-slots (class eslotds)