6 lines
221 B
Text
6 lines
221 B
Text
(defun print-list (xs)
|
|
(progn$ (cw "~x0" (first xs))
|
|
(if (endp (rest xs))
|
|
(cw (coerce '(#\Newline) 'string))
|
|
(progn$ (cw ", ")
|
|
(print-list (rest xs))))))
|