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@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@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