Plaster

(defun make-flexi-string (&optional string) (if string (make-array (length string) :element-type 'base-char :initial-contents string :fill-pointer (1- (length string)) :adjustable t) (make-array 0 :element-type 'base-char :fill-pointer 0 :adjustable t))) (defun freeze-flexi-string (string) (make-array (length string) :element-type 'base-char :initial-contents string)) (defun stringify (&rest source) (let ((sink (make-flexi-string))) (with-output-to-string (stream sink) (dolist (element source) (princ element stream))) sink))