(defun test-message-loop ()
    (loop for x in '(1 2 3 "asdfsadfasdf\na\nb\nc" 5) do
	 (shim-message "message with %s" x)))

(defun test-message ()
  (test-message-loop)
  (shim-ensure-typeout-frame)
  (test-message-loop))

(defun test-temp-buffer ()
  (shim-get-temp-buffer-create "*SHIM1*")
  (shim-get-temp-buffer-create "*SHIM2*" :reusep t)`
  (shim-get-temp-buffer-create "*SHIM3*" :reusep nil))

(defun test ()
  (test-message)
  (test-temp-buffer))

(shim-repl-buffer t)

(shim-output-buffer)

(shim-repl-buffer)

(progn
  (with-current-buffer (shim-repl-buffer)
    (shim-repl-insert-prompt `(:values (2)))))