anchor.diff:        (when directives
           (iter (for directive in directives by #'cddr)
                 (for params in (cdr directives) by #'cddr)
  -              (when-let (handler (gethash directive *custom-print-handlers*))
  +              (when-let (handler (gethash directive *js-custom-print-handlers*))
  +                (format t "Directive ~S, handler ~S, function ~S, module ~S~%" directive
  +                        (print-handler-impl handler) (print-handler-name handler) (print-handler-module handler))
                   (let ((invocation (with-output-to-string (str)
                                       (when (print-handler-impl handler)
                                         (write-string *js-namespace* str)
  +                                      (write-string "." str))
  +                                    (when-let (module-name (print-handler-module handler))
  +                                      (write-string module-name str)
                                         (write-string "." str))
                                       (write-string (print-handler-name handler) str)
                                       (write-string "(" str)
  
positive.code: 
  (defun compile-to-requirejs (obj)
    (with-output-to-string (out)
      (write-string "define(function () {
  var module = { };" out)
      (write-namespace-helpers "module" out)
      (write-namespace-body "module" (namespace-templates (parse-template obj)) out)
      (write-string "return module; });
  " out)))
  
  
negative.code:       (write-line "    C.prototype = obj;" out)
        (write-line "    return new C;" out)))
  
    ;; Custom print directive handlers
    (iter (for (directive handler) in-hashtable *js-custom-print-handlers*)
          (when (print-handler-impl handler)
            (write-line "" out)
            (format out "~A.~A = ~A;~%" name (print-handler-name handler) (print-handler-impl handler)))))
  
  (defun write-namespace-declaration (name out)
    (iter (for pos first (position #\. name) then (position #\. name :start (1+ pos)))
  