anchor.diff:  ;;;;; 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
  
positive.code:     (if (consp .x)
  	    (js-print-cons-r .x doc)
  	    (when .x
  		  (doc.write " . ")
  		  (js-print-atom .x doc)))))
  
  (dont-obfuscate write)
  
  (defun js-print-cons (x doc)
    (doc.write "(")
    (js-print-cons-r x doc)
    (doc.write ")"))
  
  (defun js-print-symbol (x)
    (+ (if (keywordp x)
  
negative.code: 	"}<br/>"))
  
  (defun js-print-atom (x doc)
    (js-print-write
        (+ (if
  		   (not x)
  		   	 "NIL"
  	       (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))))
  	     " ")
  	doc))
  
  (dont-inline js-print)
  
  