Lines Matching defs:multi
4 ;; for multi-argument generics. There are many ways of linking this file
10 ;; (load "multi-generic")
14 ;; (declare (unit multi-generic)) to the top of this file, and then
26 (define <multi-generic> (make <entity-class>
27 'name "multi-generic"
50 (make-method (list <multi-generic>)
61 (make-method (list <multi-generic>)
80 (make-method (list <multi-generic>)
117 (define multi-add-method
143 (define (multi-add-global-method val sym specializers proc)
144 (let ((generic (if (procedure? val) val (make <multi-generic> 'name (##sys#symbol->string sym)))))
145 (multi-add-method generic (make-method specializers proc))
150 ;; and then you can switch between creating multi-generics and TinyCLOS generics.
151 (set! ##tinyclos#add-method multi-add-method)
152 (set! ##tinyclos#add-global-method multi-add-global-method)
