X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/0ff9df03bb54ba792cefa551face51748ae34259..af33e77c00654c222a8a04a5e69a5eb1f56c1e8c:/str.lisp

diff --git a/str.lisp b/str.lisp
index 1cb0cc7..94a58a4 100644
--- a/str.lisp
+++ b/str.lisp
@@ -13,12 +13,12 @@
 ;;; it under the terms of the GNU General Public License as published by
 ;;; the Free Software Foundation; either version 2 of the License, or
 ;;; (at your option) any later version.
-;;; 
+;;;
 ;;; This program is distributed in the hope that it will be useful,
 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ;;; GNU General Public License for more details.
-;;; 
+;;;
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with this program; if not, write to the Free Software Foundation,
 ;;; Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
@@ -47,8 +47,7 @@
    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)