anchor.diff:    "retrieves a graph-node from the js-dependency-graph based on a symbol or url"
     (gethash key js-dependency-graph ))
   
  -(defun get-url-from-key (key js-dependency-graph)
  +(defun get-url-from-key (key &optional (js-dependency-graph *global-js-dependency-graph*))
     "gets the url for a key reguardles of whether it is a symbol or url (assuming it is in the graph)"
     (if (stringp key) key
         (let ((it (find-graph-node key js-dependency-graph)))
  
positive.code:     (if (stringp url-or-key)
  	(def-anon-js-file url-or-key :depends-on depends-on)
  	(error (format nil "js-file with name ~s is not defined" url-or-key))))
    (unless (member url-or-key (urls *js-collector*) :test #'equal )
      (setf (urls *js-collector*) (nconc (urls *js-collector*) (list url-or-key))))
    '())
  
  (defun add-js-snippet (snippet &optional (collector *js-collector*))
    "Add a snippet of javascript to the current *js-collector*"
  
negative.code:       (:export #:js-insertion-block #:xhtml-script-tag
  	       #:xhtml-script-block #:insert-script-here
  	       #:with-javascript-collector #:js-defined-p #:def-js-file
  	       #:def-anon-js-file #:use-js-file #:js-file-used?
  	       #:add-js-snippet #:table-sorter
  	       #:multi-row-table-sorter #:add-dojo-onload #:add-jquery-onload
  	       #:build-script-elements #:js-collector #:*js-collector*
  	       #:clear-js-collector #:add-new-js-snippet #:table-totaler))))
  