(defun hunchentoot::get-backtrace ()
  "Returns a string with a backtrace of what the Lisp system thinks is
the \"current\" error."
  (handler-case
      (with-output-to-string (s)
        (let ((*print-length* 80))
          (trivial-backtrace:print-backtrace-to-stream s)))
    (error (condition)
      (format nil "Could not generate backtrace: ~A." condition))))