5 lines
137 B
Text
5 lines
137 B
Text
(defun traverse (xs)
|
|
(if (endp xs)
|
|
(cw "End.~%")
|
|
(prog2$ (cw "~x0~%" (first xs))
|
|
(traverse (rest xs)))))
|