X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/lisp/blobdiff_plain/0ff9df03bb54ba792cefa551face51748ae34259..28a5e53109f67f9ed97af095baa95fd360ed9e68:/str.lisp

diff --git a/str.lisp b/str.lisp
index 1cb0cc7..104c85a 100644
--- a/str.lisp
+++ b/str.lisp
@@ -47,8 +47,7 @@ (defun str-next-word (string &key quotedp start end)
    If QUOTEDP, then allow quoting and backslashifying; otherwise don't.  The
    START and END arguments limit the portion of the string to be processed;
    the default to 0 and nil (end of string), as usual."
-  (unless start (setf start 0))
-  (unless end (setf end (length string)))
+  (setf-default start 0 end (length string))
   (let ((i start)
 	(q nil)
 	(e nil)