[clhp-cvs] CVS update: clhp/clhp.lisp clhp/ChangeLog

[Anthony Ventimiglia]

Update of /project/clhp/cvsroot/clhp
In directory common-lisp.net:/tmp/cvs-serv1115

Modified Files:
	clhp.lisp ChangeLog 
Log Message:
* tests/clhp-test.lisp (*CLHP-TESTS*): Wrote tests for most of
:CLHP

* clhp.lisp (FIND-PI-START, FIND-PI-END): Made 0 a default value
for START.

Date: Thu Oct 16 12:57:25 2003
Author: aventimiglia

Index: clhp/clhp.lisp
diff -u clhp/clhp.lisp:1.13 clhp/clhp.lisp:1.14
--- clhp/clhp.lisp:1.13	Wed Oct 15 10:44:04 2003
+++ clhp/clhp.lisp	Thu Oct 16 12:57:25 2003
@@ -1,5 +1,5 @@
 (ext:file-comment
- "$Id: clhp.lisp,v 1.13 2003/10/15 14:44:04 aventimiglia Exp $")
+ "$Id: clhp.lisp,v 1.14 2003/10/16 16:57:25 aventimiglia Exp $")
 ;;
 ;; CLHP the Common Lisp Hypertext Preprocessor
 ;; (C) 2003 Anthony J Ventimiglia
@@ -40,7 +40,7 @@
 ;; will override the CVS keyword
 (defconstant *CLHP-VERSION*
   #.(or "0.1.1alpha"				; Set this for releases
-	(let* ((trimmed (string-trim "$ Date:" "$Date: 2003/10/15 14:44:04 $"))
+	(let* ((trimmed (string-trim "$ Date:" "$Date: 2003/10/16 16:57:25 $"))
 	       (date (subseq trimmed 0 (search " " trimmed))))
 	  (concatenate 'string
 		       (subseq date 0 4)
@@ -63,14 +63,14 @@
   (attributes NIL :type list)
   (contents NIL :type (or string symbol cons xml-element)))
 
-(defmacro find-pi-start (buffer &key start end)
+(defmacro find-pi-start (buffer &key (start 0) end)
   "Find the next occurence of *PI-START* and return its index. Returns
 NIL if not found"
   (declare (type (array character 1) buffer)
-	   (type fixnum start end))
+	   (type fixnum start))
   `(search ,*PI-START* ,buffer :test #'string= :start2 ,start :end2 ,end))
 
-(defmacro find-pi-end (buffer &key start end)
+(defmacro find-pi-end (buffer &key (start 0) end)
   (declare (type (array character 1) buffer)
 	   (type fixnum start end))	       
   "Find the next occurence of *pi-end* and return its index. Returns


Index: clhp/ChangeLog
diff -u clhp/ChangeLog:1.13 clhp/ChangeLog:1.14
--- clhp/ChangeLog:1.13	Thu Oct 16 00:00:42 2003
+++ clhp/ChangeLog	Thu Oct 16 12:57:25 2003
@@ -1,3 +1,11 @@
+2003-10-16    <ant at afghan.dogpound>
+
+	* tests/clhp-test.lisp (*CLHP-TESTS*): Wrote tests for most of
+	:CLHP
+
+	* clhp.lisp (FIND-PI-START, FIND-PI-END): Made 0 a default value
+	for START.
+
 2003-10-15    <ant at afghan.dogpound>
 
 	* tests/test-suite.lisp: Exporting
@@ -83,4 +91,4 @@
 	used to create tables from (CONS . TYPE) a-lists. Also added some
 	comments.
 
-$Id: ChangeLog,v 1.13 2003/10/16 04:00:42 aventimiglia Exp $
\ No newline at end of file
+$Id: ChangeLog,v 1.14 2003/10/16 16:57:25 aventimiglia Exp $
\ No newline at end of file