# File lib/facet/lisp-format.rb, line 1791
  def Lisp.format(format, *args)
    begin 
      state = Format::State.new(args, Format::Output.new)
      formatter = Format::Formatter.new(format, state)
      formatter.run
    rescue => e
      puts 'Format error: ' + e.message
      puts format
      puts ' ' * (e.pos - 1) + '^' if e.respond_to? :pos
      raise
    end
  end