/[gcl]/gcl/pcl/pcl_defs.lisp
ViewVC logotype

Diff of /gcl/pcl/pcl_defs.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by camm, Tue Oct 7 21:06:33 2003 UTC revision 1.3 by camm, Thu Oct 23 15:19:32 2003 UTC
# Line 39  Line 39 
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)
# Line 953  Line 950 
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)
# Line 972  Line 977 
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    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26