anchor.diff:      (if (consp .x)
   	    (js-print-cons-r .x doc)
   	    (when .x
  -		  (doc.write " . ")
  +		  (js-print-write " . " doc)
   		  (js-print-atom .x doc)))))
   
   (dont-obfuscate write)
   
   (defun js-print-cons (x doc)
  -  (doc.write "(")
  +  (js-print-write "(" doc)
     (js-print-cons-r x doc)
  -  (doc.write ")"))
  +  (js-print-write ")" doc))
   
   (defun js-print-symbol (x)
     (+ (if (keywordp x)
  
positive.code: 	"}<br/>"))
  
  (defun js-print-atom (x doc)
    (doc.write
      (+ (if
  	     (symbolp x)
  	       (js-print-symbol x)
  	     (characterp x)
  		   (+ "#\\\\" (*string.from-char-code (char-code x)))
  	     (arrayp x)
  	       "{array}"
  	     (stringp x)
  	       (+ "\"" x "\"")
  		 (when x
  	       (if (objectp x)
  			   (js-print-object x)
  		   	   (string x))))
  	   " ")))
  
  (dont-inline js-print)
  
  
negative.code: ;;;;; Transpiler: TRE to JavaScript
  ;;;;; Copyright (c) 2008-2009 Sven Klose <pixel@copei.de>
  
  (defun js-print-write (x doc)
    (setf doc.body.inner-h-t-m-l
    	    (+ doc.body.inner-h-t-m-l x)))
  
  (defun js-print-cons-r (x doc)
    (when x
  