| commit | f6f5570c55c5dc382a7d64a77a9af2ad2e16ce04 | |
| author | Christophe Rhodes <csr21@cantab.net> | |
| Tue, 18 Feb 2014 12:31:14 +0000 (18 12:31 +0000) | ||
| committer | Christophe Rhodes <csr21@cantab.net> | |
| Fri, 21 Feb 2014 17:02:28 +0000 (21 17:02 +0000) | ||
| tree | 8296aadefc8184cdd3c30c967e90127d8367ae97 | treesnapshot (tar.gz zip) |
| parent | 1f555ba30b0571d6d8515d481682c550afe76e4b | commitdiff |
improve generic function encapsulation
Perform the encapsulation in an :AROUND method specialized on
STANDARD-GENERIC-FUNCTION, so that subclasses transparently inherit
encapsulation handling while still being able to override the standard
COMPUTE-DISCRIMINATING-FUNCTION behaviour. (This is method structure
that AMOP allows implementations, as the :AROUND method is an
extending one -- it calls CALL-NEXT-METHOD)
Perform the encapsulation in an :AROUND method specialized on
STANDARD-GENERIC-FUNCTION, so that subclasses transparently inherit
encapsulation handling while still being able to override the standard
COMPUTE-DISCRIMINATING-FUNCTION behaviour. (This is method structure
that AMOP allows implementations, as the :AROUND method is an
extending one -- it calls CALL-NEXT-METHOD)
| src/pcl/methods.lisp | diffblobblamehistory |