(defun print-separated-strings (strm separator &rest lists)
(declare (optimize (speed 3) (safety 0) (space 0) (debug 0)
(compilation-speed 0)))
(do* ((rest-lists lists (cdr rest-lists))
(list (car rest-lists) (car rest-lists))
(defun print-separated-strings (strm separator &rest lists)
(declare (optimize (speed 3) (safety 0) (space 0) (debug 0)
(compilation-speed 0)))
(do* ((rest-lists lists (cdr rest-lists))
(list (car rest-lists) (car rest-lists))