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