anchor.diff:                  `((with ,x
   					,@body))
                   body)))
  -    (let* ((plc (car alst))
  +    (let* ((alst (macroexpand lst))
  +           (plc (car alst))
              (val (cadr alst)))
         (?
   	    (cons? plc) `(multiple-value-bind ,plc ,val
  
positive.code: ;;;;; tré – Copyright (c) 2005–2012 Sven Michael Klose <pixel@copei.de>
  
  (defun copy-while (pred x)
    (& x (funcall pred (car x))
  
negative.code:   (values (copy-while pred x)
  		  (remove-if pred x)))
  
  (defmacro with (lst &body body)
    (unless body
  	(error "body expected"))
    (labels ((sub (x)
  