345 |
after (reverse after) |
after (reverse after) |
346 |
primary (reverse primary) |
primary (reverse primary) |
347 |
around (reverse around)) |
around (reverse around)) |
348 |
|
; (when (eq generic-function (symbol-function 'shared-initialize)) |
349 |
|
; (break "here3 ~a ~a ~a~%" generic-function combin applicable-methods)) |
350 |
|
; (when (eq generic-function (symbol-function 'compute-effective-method)) |
351 |
|
; (break "here2 ~a ~a ~a~%" generic-function combin applicable-methods)) |
352 |
(cond ((null primary) |
(cond ((null primary) |
353 |
|
; (break "here we are ~a ~a ~a~%" generic-function combin applicable-methods) |
354 |
`(error "No primary method for the generic function ~S." ',generic-function)) |
`(error "No primary method for the generic function ~S." ',generic-function)) |
355 |
((and (null before) (null after) (null around)) |
((and (null before) (null after) (null around)) |
356 |
;; |
;; |