projects
/
xmlutils.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r5292: *** empty log message ***
[xmlutils.git]
/
phtml.cl
diff --git
a/phtml.cl
b/phtml.cl
index 14cbb3a4b74ee5450aa473379702d764b5251339..fc2e08b2b1df0c419fad2e5a1a413eb6186ff118 100644
(file)
--- a/
phtml.cl
+++ b/
phtml.cl
@@
-1,3
+1,4
@@
+#+allegro
(sys:defpatch "phtml" 1
"parse-html close tag closes consecutive identical open tags."
:type :system
(sys:defpatch "phtml" 1
"parse-html close tag closes consecutive identical open tags."
:type :system
@@
-24,7
+25,7
@@
;; Suite 330, Boston, MA 02111-1307 USA
;;
;; Suite 330, Boston, MA 02111-1307 USA
;;
-;; $Id: phtml.cl,v 1.
2 2003/06/20 02:21:23
kevin Exp $
+;; $Id: phtml.cl,v 1.
3 2003/07/11 18:02:41
kevin Exp $
;; phtml.cl - parse html
;; phtml.cl - parse html
@@
-48,7
+49,7
@@
;
(defpackage net.html.parser
;
(defpackage net.html.parser
- (:use :
lisp :clos :excl
)
+ (:use :
cl #+allegro :clos :excl #+allegro :mp #-allegro :acl-mp
)
(:export
#:phtml-internal
#:parse-html))
(:export
#:phtml-internal
#:parse-html))
@@
-103,7
+104,7
@@
(defun get-collector ()
(declare (optimize (speed 3) (safety 1)))
(let (col)
(defun get-collector ()
(declare (optimize (speed 3) (safety 1)))
(let (col)
- (
mp::
without-scheduling
+ (without-scheduling
(do* ((cols *collectors* (cdr cols))
(this (car cols) (car cols)))
((null cols))
(do* ((cols *collectors* (cdr cols))
(this (car cols) (car cols)))
((null cols))
@@
-121,7
+122,7
@@
(defun put-back-collector (col)
(declare (optimize (speed 3) (safety 1)))
(defun put-back-collector (col)
(declare (optimize (speed 3) (safety 1)))
- (
mp::
without-scheduling
+ (without-scheduling
(do ((cols *collectors* (cdr cols)))
((null cols)
; toss it away
(do ((cols *collectors* (cdr cols)))
((null cols)
; toss it away
@@
-533,7
+534,7
@@
(defun get-tokenbuf ()
(declare (optimize (speed 3) (safety 1)))
(let (buf)
(defun get-tokenbuf ()
(declare (optimize (speed 3) (safety 1)))
(let (buf)
- (
mp::
without-scheduling
+ (without-scheduling
(do* ((bufs *tokenbufs* (cdr bufs))
(this (car bufs) (car bufs)))
((null bufs))
(do* ((bufs *tokenbufs* (cdr bufs))
(this (car bufs) (car bufs)))
((null bufs))
@@
-552,7
+553,7
@@
(defun put-back-tokenbuf (buf)
(declare (optimize (speed 3) (safety 1)))
(defun put-back-tokenbuf (buf)
(declare (optimize (speed 3) (safety 1)))
- (
mp::
without-scheduling
+ (without-scheduling
(do ((bufs *tokenbufs* (cdr bufs)))
((null bufs)
; toss it away
(do ((bufs *tokenbufs* (cdr bufs)))
((null bufs)
; toss it away