[rfc2388-cvs] CVS update: rfc2388/rfc2388.lisp

[Janis Dzerins]

Update of /project/rfc2388/cvsroot/rfc2388
In directory common-lisp.net:/tmp/cvs-serv12844

Modified Files:
	rfc2388.lisp 
Log Message:
Use a sensible default value for a :start keyword argument.

Date: Sat Jun 12 16:12:46 2004
Author: jdzerins

Index: rfc2388/rfc2388.lisp
diff -u rfc2388/rfc2388.lisp:1.2 rfc2388/rfc2388.lisp:1.3
--- rfc2388/rfc2388.lisp:1.2	Fri Aug 29 10:12:53 2003
+++ rfc2388/rfc2388.lisp	Sat Jun 12 16:12:46 2004
@@ -223,7 +223,7 @@
 
 
 
-(defun skip-linear-whitespace (string &key start end)
+(defun skip-linear-whitespace (string &key (start 0) end)
   "Returns the position of first non-linear-whitespace character in STRING
    bound by START and END."
   (position-if-not #'lwsp-char-p string :start start :end end))