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 initial-discriminating-function (gf args)1578 (set-funcallable-instance-function1579 gf1580 (funcall (if (eq (class-of gf) +the-standard-generic-function-class+)1581 #'std-compute-discriminating-function1582 #'compute-discriminating-function)1583 gf))1584 (apply gf args))1585 1586 1577 (defun collect-eql-specializer-objects (generic-function) 1587 1578 (let ((result nil)) … … 1601 1592 (%init-eql-specializations gf (collect-eql-specializer-objects gf)) 1602 1593 (set-funcallable-instance-function 1603 gf #'(lambda (&rest args) 1604 (initial-discriminating-function gf args))) 1594 gf 1595 (if (eq (class-of gf) +the-standard-generic-function-class+) 1596 (std-compute-discriminating-function gf) 1597 (compute-discriminating-function gf))) 1605 1598 ;; FIXME Do we need to warn on redefinition somewhere else? 1606 1599 (let ((*warn-on-redefinition* nil))
Note: See TracChangeset
for help on using the changeset viewer.