Changeset 13978
 Timestamp:
 06/18/12 16:32:48 (9 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/abcl/src/org/armedbear/lisp/clos.lisp
r13977 r13978 1575 1575 gf)))) 1576 1576 1577 (defun initialdiscriminatingfunction (gf args)1578 (setfuncallableinstancefunction1579 gf1580 (funcall (if (eq (classof gf) +thestandardgenericfunctionclass+)1581 #'stdcomputediscriminatingfunction1582 #'computediscriminatingfunction)1583 gf))1584 (apply gf args))1585 1586 1577 (defun collecteqlspecializerobjects (genericfunction) 1587 1578 (let ((result nil)) … … 1601 1592 (%initeqlspecializations gf (collecteqlspecializerobjects gf)) 1602 1593 (setfuncallableinstancefunction 1603 gf #'(lambda (&rest args) 1604 (initialdiscriminatingfunction gf args))) 1594 gf 1595 (if (eq (classof gf) +thestandardgenericfunctionclass+) 1596 (stdcomputediscriminatingfunction gf) 1597 (computediscriminatingfunction gf))) 1605 1598 ;; FIXME Do we need to warn on redefinition somewhere else? 1606 1599 (let ((*warnonredefinition* nil))
Note: See TracChangeset
for help on using the changeset viewer.