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:   `(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)))
  
negative.code:         t
        (no (cdr args))
          (car args)
        :else
          `(let it ,(car args)
  	   (declare (ignorable it))
  	   (and it (aand ,@(cdr args))))))
  