Formatting strings to left and right

fmtstr.lisp

(defun format-string-left (str width)
        (subseq (format nil "~va" width str) 0 width))
;;; (format-string-left "hello" 6) => "hello "
;;; (format-string-left "hello" 4) => "hell"

(defun format-string-right (str width)
        (let* ((str1 (format nil "~v@a~a" width " " str))
               (len (length str1))
               (from (- len width)))
          (subseq str1 from )))
;;; (format-string-right "hello" 6) => " hello"
;;; (format-string-right "hello" 4) => "ello"

(defun format-decimal (value width dp)
  (let* ((as-int (round (* value (expt 10 dp))))
         (as-pos-int (abs as-int))
         (sign (if (< value 0) "-" "+"))) 
    (format nil "~a~v,'0d" sign width as-pos-int)))
;;; (format-decimal -3 4 2) => "-0300"