anchor.diff:  	"}<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))))
  -	   " ")))
  +  (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)
   
  
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: ;;;;; 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
  