anchor.diff:        ; Return element if it's not a cons.
         ((atom (car %gsbq))
             (cons (car %gsbq)
  -                (%backquote-1 (cdr %gsbq) %gsbqsub)))
  +                (%backquote-1 (cdr %gsbq))))
   
         ; Do QUASIQUOTE expansion.
         ((eq (car (car %gsbq)) 'QUASIQUOTE)
  -          (%backquote-quasiquote %gsbq %gsbqsub))
  +          (%backquote-quasiquote %gsbq))
   
         ; Do QUASIQUOTE-SPLICE expansion.
         ((eq (car (car %gsbq)) 'QUASIQUOTE-SPLICE)
  -          (%backquote-quasiquote-splice %gsbq %gsbqsub))
  +          (%backquote-quasiquote-splice %gsbq))
   
         ; Expand sublist and rest.
  -      (t  (cons (%backquote (car %gsbq) %gsbqsub)
  -                (%backquote-1 (cdr %gsbq) %gsbqsub))))))
  +      (t  (cons (%backquote (car %gsbq))
  +                (%backquote-1 (cdr %gsbq)))))))
   
  -;; Expand BACKQUOTE, check for nested BACKQUOTE (and increment sublevel) first.
  +;; Expand BACKQUOTE, check for nested BACKQUOTE first.
   (%set-atom-fun %backquote
  -  #'((%gsbq %gsbqsub)
  +  #'((%gsbq)
       (cond
         ; Return atom as is.
         ((atom %gsbq)
  
positive.code:       ; Enter new backquote level.
        ((eq (car %gsbq) 'BACKQUOTE)
       	  (cons 'BACKQUOTE
                  (%backquote (cdr %gsbq) (+ %gsbqsub 1))))
  
        ; No new backquote level, continue normally.
        (t  (%backquote-1 %gsbq %gsbqsub)))))
  
  ;; Initialise expansion with sublevel of 0.
  (%set-atom-fun backquote
    (special (%gsbq) (%backquote %gsbq 0)))
  
negative.code: ;;;; TRE environment
  ;;;; Copyright (c) 2006-2008 Sven Klose <pixel@copei.de>
  ;;;;
  ;;;; BACKQUOTE expansion
  ;;;;
  