anchor.diff:  (defun around-method-p (method)
     (equal (method-qualifiers method) '(:around)))
   
  -(defun compute-effective-method-default (methods)
  +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  +;;;
  +;;; Support for generic function
  +;;; COMPUTE-EFFECTIVE-METHOD.
  +;;;
  +;;; For the specification of this generic function, see
  +;;; http://metamodular.com/CLOS-MOP/compute-effective-method.html
  +;;;
  +;;; The specification includes a single method, specialized only for
  +;;; STANDARD-GENERIC-FUNCTION, independently of the method
  +;;; combination.  The default actions below is valid for
  +;;; STANDARD-GENERIC-FUNCTION and the STANDARD method combination. 
  +
  +;;; In this version of the default action, we use the compiler to
  +;;; produce the effective method so that the effective method
  +;;; contains only straight-line code and no loops.
  +(defun compute-effective-method-default-1 (methods)
     (let ((primary-methods (remove-if-not #'primary-method-p methods))
   	(before-methods (remove-if-not #'before-method-p methods))
   	(after-methods (remove-if-not  #'after-method-p methods))
  
positive.code: 			       ,primary-chain
  			       ,@after-chain)))))))))
  	     
  
negative.code: (cl:in-package #:sicl-clos)
  
  ;;;; This file contains the support code for the generic function
  ;;;; COMPUTE-EFFECTIVE-METHOD.
  ;;;;
  ;;;; In this file, there are no definitions of generic functions, nor
  ;;;; of any methods.  
  
  ;;;; This file contains an ordinary function that, given a list of
  ;;;; methods, computes an effective method using the standard method
  ;;;; combination.  This function is named
  ;;;; COMPUTE-EFFECTIVE-METHOD-DEFAULT.
  ;;;;
  ;;;; The file compute-effective-method-default-basic.lisp contains a
  ;;;; version of this function that does not use the compiler.
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Utilities.
  
  (defun primary-method-p (method)
    (null (method-qualifiers method)))
  