Changeset 14862


Ignore:
Timestamp:
Jul 5, 2011, 4:56:20 PM (8 years ago)
Author:
gb
Message:

UNOPTIMIZE-DEPENDENTS undoes reader-method optimization.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-clos.lisp

    r14860 r14862  
    307307        do (etypecase obj
    308308             (standard-generic-function
    309               (clear-gf-dispatch-table (%gf-dispatch-table obj))
    310               (compute-dcode obj)))))
     309              (let* ((dt (%gf-dispatch-table obj))
     310                     (argnum (%gf-dispatch-table-argnum dt)))
     311                (when (< argnum 0)
     312                  (setf (%gf-dispatch-table-argnum dt) (lognot argnum)
     313                        (%gf-dcode obj) (%gf-dispatch-table-gf dt)
     314                        (%gf-dispatch-table-gf dt) obj)
     315                  (clear-gf-dispatch-table dt)))))))
    311316
    312317(defun update-slots (class eslotds)
Note: See TracChangeset for help on using the changeset viewer.