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