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