anchor.diff: -;;;;; tré – Copyright (c) 2006–2012 Sven Klose <pixel@copei.de>
  +;;;;; tré – Copyright (c) 2006–2013 Sven Michael Klose <pixel@copei.de>
   
   (defun backquote-cons-quasiquote (x)
     (? (any-quasiquote? (cadr x.))
  
positive.code:                   ,(backquote-cons-1 .x))
            (copy-tree (cadr x.)))))
  
  (defun backquote-cons-atom (x)
    (? (| (not x)
          (number? x)
          (string? x)
  
negative.code: 
  (defun backquote-cons (x)
    (?
      (atom x)       (quote-literal x)
      (backquote? x) `(cons 'BACKQUOTE ,(backquote-cons .x))
      (backquote-cons-1 x)))
  
  (defun simple-quote-expand (x)
    (? (atom x)
       (quote-literal x)
       `(cons ,(simple-quote-expand x.)
              ,(simple-quote-expand .x))))
  
  