anchor.diff:  
     (let* [(prefix (.> args :gen-native))
            (lib (.> compiler :libCache (string/gsub (last (.> args :input)) "%.lisp$" "")))
  +         (escaped (if (string? prefix) (escape (last (string/split (.> lib :name) "/"))) nil))
            (max-name 0)
            (max-quot 0)
            (max-pref 0)
  
positive.code:         (exit! 1))
  
        (when (string? prefix)
          (self handle :write (string/format "local %s = %s or {}\n" prefix prefix)))
  
        (self handle :write "return {\n")
        (for-each native natives
          (self handle :write (string/format format
                                (.. (quoted native) "] =")
                                (.. (quoted (dot-quote prefix native)) ",")
                                (.. (dot-quote prefix native) ","))))
        (self handle :write "}\n")
        (self handle :close))))
  
  
negative.code: 
            (set! max-name (math/max max-name (#s (quoted name))))
            (set! max-quot (math/max max-quot (#s (quoted (dot-quote prefix name)))))
            (set! max-pref (math/max max-pref (#s (dot-quote escaped name)))))))
  
      (table/sort natives)
  
  