/[clhp]/clhp/clhp.lisp
ViewVC logotype

Diff of /clhp/clhp.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by aventimiglia, Wed Oct 15 14:44:04 2003 UTC revision 1.14 by aventimiglia, Thu Oct 16 16:57:25 2003 UTC
# Line 63  printed as they will appear." Line 63  printed as they will appear."
63    (attributes NIL :type list)    (attributes NIL :type list)
64    (contents NIL :type (or string symbol cons xml-element)))    (contents NIL :type (or string symbol cons xml-element)))
65    
66  (defmacro find-pi-start (buffer &key start end)  (defmacro find-pi-start (buffer &key (start 0) end)
67    "Find the next occurence of *PI-START* and return its index. Returns    "Find the next occurence of *PI-START* and return its index. Returns
68  NIL if not found"  NIL if not found"
69    (declare (type (array character 1) buffer)    (declare (type (array character 1) buffer)
70             (type fixnum start end))             (type fixnum start))
71    `(search ,*PI-START* ,buffer :test #'string= :start2 ,start :end2 ,end))    `(search ,*PI-START* ,buffer :test #'string= :start2 ,start :end2 ,end))
72    
73  (defmacro find-pi-end (buffer &key start end)  (defmacro find-pi-end (buffer &key (start 0) end)
74    (declare (type (array character 1) buffer)    (declare (type (array character 1) buffer)
75             (type fixnum start end))             (type fixnum start end))
76    "Find the next occurence of *pi-end* and return its index. Returns    "Find the next occurence of *pi-end* and return its index. Returns

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

  ViewVC Help
Powered by ViewVC 1.1.5