X-Git-Url: http://git.kpe.io/?p=xmlutils.git;a=blobdiff_plain;f=phtml.cl;h=fc2e08b2b1df0c419fad2e5a1a413eb6186ff118;hp=14cbb3a4b74ee5450aa473379702d764b5251339;hb=7a3f6cd041edb5d596ffb20bfd626e844d98b538;hpb=1e8aa1df433841c85c5a0b44fbd92964672e18b5

diff --git a/phtml.cl b/phtml.cl
index 14cbb3a..fc2e08b 100644
--- 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
@@ -24,7 +25,7 @@
 ;; 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
 
@@ -48,7 +49,7 @@
 ;
 
 (defpackage net.html.parser
-  (:use :lisp :clos :excl)
+  (:use :cl #+allegro :clos :excl #+allegro :mp #-allegro :acl-mp)
   (:export
    #:phtml-internal
    #:parse-html))
@@ -103,7 +104,7 @@
 (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))
@@ -121,7 +122,7 @@
 
 (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
@@ -533,7 +534,7 @@
 (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))
@@ -552,7 +553,7 @@
 
 (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