Lisp's consistent white spacing, using magic format function

test.lisp

#!/bin/sh
#|-*- mode:lisp -*-|#
#| <Put a one-line description here>
exec ros -Q -- $0 "$@"
|#
(progn ;;init forms
  )

(defpackage :ros.script.test-me.3694101834
  (:use :cl))
(in-package :ros.script.test-me.3694101834)

(defun main (&rest argv)
  (declare (ignorable argv))

  (format t "Without new line")
  (format t "~2&DONE~%")


  (format t "With new line~%")
  (format t "~2&DONE~%")

  ;; Gives
  ;; Without new line
  ;;
  ;; DONE
  ;; With new line
  ;;
  ;; DONE
  ;;
  ;; Count of empty lines DOES NOT depends on if first line ends with new line symbol
)
;;; vim: set ft=lisp lisp:

test.sh

#!/bin/bash

printf "Without new line"
printf "\n\nDONE\n"

printf "With new line\n"
printf "\n\nDONE\n"

# Gives
# Without new line
#
# DONE
# With new line
#
#
# DONE
#
# Count of empty lines DEPENDS on if first line ends with new line symbol