document function

This commit is contained in:
Masataro Asai 2016-10-11 02:43:23 +01:00
parent c310d0506d
commit b5e037f287

View file

@ -312,6 +312,7 @@ have the latest asdf, and this file has a workaround for this.
(cl:write (cl:eval (read-from-string arg))))
(defun script (cmd arg &rest rest)
"load and evaluate the script"
(setf *argv* rest)
(flet ((body (in)
(let ((line(read-line in)))