Commit b71c650a authored by Zach Beane's avatar Zach Beane
Browse files

Offer a cerror on TRY.

parent 7f87443a
......@@ -57,7 +57,8 @@
(defun try ()
(unless *to-build*
(error "Nothing left to build -- (reset) to start over"))
(cerror "Call reset" "Nothing left to build -- (reset) to start over")
(reset))
(let ((*default-pathname-defaults* *source-directory*))
(loop
(when (endp *to-build*)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment