mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-20 11:32:35 -08:00
Code Issues Projects Releases Packages Wiki Activity

STD-COMPUTE-EFFECTIVE-METHOD and friends are called directly

Browse source
This commit is contained in:
Juanjo Garcia-Ripoll 2012-04-27 14:00:03 +02:00
parent a366111a71
commit 2cc751eef8
8 changed files with 44 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/cmp/proclamations.lsp
View file

@ -285,6 +285,13 @@
;; Slot accessors:
; (proclamation unbound-slot-instance (condition) si::instance :predicate)
#+clos
(proclamation clos:std-compute-applicable-methods (generic-function list) list)
#+clos
(proclamation clos:std-compute-effective-method (generic-function method-combination list) function)
#+clos
(proclamation clos:compute-effective-method-function (generic-function method-combination list) function)
;;;
;;; 8. STRUCTURES
;;;

3
src/cmp/sysfun.lsp
View file

@ -920,6 +920,9 @@
,@'(;; combin.lsp
method-combination-error
invalid-method-error
clos:std-compute-applicable-methods
clos:std-compute-effective-method
clos:compute-effective-method-function
;; standard-instance-access ; this function is a synonym for si:instance-ref
;; funcallable-standard-instance-access ; same for this one
subclassp of-class-p