anchor.diff:      (#\* . "Star")
       (#\/ . "Slash")))
   
  -
   ;;; Parenscript-style symbol -> Javascript-style symbol
  -
  -(defun string-chars (string)
  -  (coerce string 'list))
   
   (defun constant-string-p (string)
     (let ((len (length string))
  
positive.code: 	     (coerce (nreverse res) 'string)))
  	  (t (string-join (mapcar #'symbol-to-js symbols) "")))))
  
  (defun compose (&rest fns)
    "(funcall (compose #'x #'y #'z) 'foo) is (x (y (z 'foo)))"
    (if fns
        (let ((fn1 (car (last fns)))
  	    (fns (butlast fns)))
  	#'(lambda (&rest args)
  	    (reduce #'funcall fns 
  		    :from-end t
  		    :initial-value (apply fn1 args))))
        #'identity))
  
  (defun ordered-set-difference (list1 list2 &key (test #'eql))
    (reduce (lambda (list el) (remove el list :test test))
            (cons list1 list2)))
negative.code: (in-package :parenscript)
  
  (defun string-join (strings separator)
    (format nil "~{~}" (format nil "~~a~~^~a" separator) strings))
  
  (defun val-to-string (val)
    (if (symbolp val)
        (string-downcase (symbol-name val))
        (princ-to-string val)))
  
  (defun string-split (string separators &key (keep-separators nil) (remove-empty-subseqs nil))
    (do ((len (length string))
  