;;; ************************************************************************
;;; * Библиотека DWGruLispLib Copyright ©2007  DWGru Programmers Group
;;; *
;;; * dwgru-string-align-to-right
;;; *
;;; * 03/12/2007 Версия 0001.  Сергей Зуев   (ShaggyDoc)
;;; ************************************************************************


(defun lispru-string-align-to-right (string str_len sym)
 ;;; выравнивает строку string до длины str_len  символом sym справа
  ;;; Использует функцию библиотеки
  ;;;                     _dwgru-string-align
    ;;; Параметры: 
    ;;; string   - исходная строка
    ;;; str_len  - необходимая длинна (Integer)
    ;;; sym      - символ выравнивания (string)
    ;;; Возврат:
    ;;;   строку (String)
    ;;; Пример:
;|  
 (lispru-string-align-to-right "123" 10 "0");_Результат  "1230000000"
 |;
  (_lispru-string-align string str_len sym NIL)
)