anchor.diff: -;;;; Copyright (c) 2008, 2009, 2010, 2011, 2012, 2013
  -;;;;
  -;;;;     Robert Strandh (robert.strandh@gmail.com)
  -;;;; 
   ;;;; Copyright (c) 2010, 2011
   ;;;;
   ;;;;     Matthieu Villeneuve (matthieu.villeneuve@gmail.com)
  
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:                 ((not (eq (accumulation-type body) clause-accumulation-type))
                   (error "Conflicting accumulation types")))))
        (initialize-accumulation (rest clauses) body))))
  