39 |
;EARLY |
;EARLY |
40 |
;BRAID |
;BRAID |
41 |
;COMPLETE |
;COMPLETE |
|
(defvar *fegf-started-p* nil) |
|
|
|
|
|
|
|
42 |
) |
) |
43 |
|
|
44 |
(eval-when (load eval) |
(eval-when (load eval) |
950 |
(options :reader method-combination-options |
(options :reader method-combination-options |
951 |
:initarg :options))) |
:initarg :options))) |
952 |
|
|
953 |
|
(defclass long-method-combination (standard-method-combination) |
954 |
|
((function |
955 |
|
:initarg :function |
956 |
|
:reader long-method-combination-function) |
957 |
|
(arguments-lambda-list |
958 |
|
:initarg :arguments-lambda-list |
959 |
|
:reader long-method-combination-arguments-lambda-list))) |
960 |
|
|
961 |
(defparameter *early-class-predicates* |
(defparameter *early-class-predicates* |
962 |
'((specializer specializerp) |
'((specializer specializerp) |
963 |
(exact-class-specializer exact-class-specializer-p) |
(exact-class-specializer exact-class-specializer-p) |
977 |
(standard-boundp-method standard-boundp-method-p) |
(standard-boundp-method standard-boundp-method-p) |
978 |
(generic-function generic-function-p) |
(generic-function generic-function-p) |
979 |
(standard-generic-function standard-generic-function-p) |
(standard-generic-function standard-generic-function-p) |
980 |
(method-combination method-combination-p))) |
(method-combination method-combination-p) |
981 |
|
(long-method-combination long-method-combination-p))) |
982 |
|
|