1518 |
|
|
1519 |
(defun update-dfun (generic-function &optional dfun cache info) |
(defun update-dfun (generic-function &optional dfun cache info) |
1520 |
(let* ((early-p (early-gf-p generic-function)) |
(let* ((early-p (early-gf-p generic-function)) |
1521 |
(gf-name (if early-p |
#+cmu(gf-name (if early-p |
1522 |
(early-gf-name generic-function) |
(early-gf-name generic-function) |
1523 |
(generic-function-name generic-function))) |
(generic-function-name generic-function))) |
1524 |
(ocache (gf-dfun-cache generic-function))) |
(ocache (gf-dfun-cache generic-function))) |