anchor.diff:  ;;;; these are different kinds of conditionals
   
  -(in-package "CLAMP")
  +(in-package :clamp)
   
   (mac iflet (var expr &body branches)
     "Same as if but if a predicate is true, it is bound to var"
  
positive.code:           nil
  	(single clauses)
            (car clauses)
  	'else
          (let (t1 c1 . rest) clauses
  	  `(mvb (,val ,win) ,t1
  	     (if (or ,val ,win)
  
negative.code:   `(cl:ccase ,keyform ,@(group clauses)))
  
  (mac ecase (keyform &rest clauses)
    "Same as regular CL ecase except there are no parens around each pair."
    `(cl:ecase ,keyform ,@(group clauses)))
  