anchor.diff:  
   (cl:in-package #:sicl-loop)
   
  -(declaim (optimize (debug 3)))
  -
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
   ;;; Code generation
   
  -;;;;;
   (defun progn-or-single-form (forms)
     (if (> (length forms) 1)
         `(progn ,@forms)
  
positive.code:                 ((not (eq (accumulation-type body) clause-accumulation-type))
                   (error "Conflicting accumulation types")))))
        (initialize-accumulation (rest clauses) body))))
  ;;;;;
  
negative.code: ;;;; Copyright (c) 2010, 2011
  ;;;;
  ;;;;     Matthieu Villeneuve (matthieu.villeneuve@gmail.com)
  