;;; Strings
(defmacro string-append (outputstr &rest args)
`(setq ,outputstr (concatenate 'string ,outputstr ,@args)))
;;; Strings
(defmacro string-append (outputstr &rest args)
`(setq ,outputstr (concatenate 'string ,outputstr ,@args)))
(defun list-to-string (lst)
"Converts a list to a string, doesn't include any delimiters between elements"
(format nil "~{~A~}" lst))
(defun list-to-string (lst)
"Converts a list to a string, doesn't include any delimiters between elements"
(format nil "~{~A~}" lst))
(substitute-string-for-char s #\\ "\\\\"))
(defun substitute-string-for-char (procstr match-char subst-str)
(substitute-string-for-char s #\\ "\\\\"))
(defun substitute-string-for-char (procstr match-char subst-str)