;;; Patches to make phtml.cl load in portable aserve in Lispworks
;;; Put this file in the directory that contains the directory
;;; xmlutils.

(in-package :cl-user)

;;; phtml.cl looks for :excl package, not acl-compat.excl
(rename-package :acl-compat.excl :acl-compat.excl '(:excl))

;;; phtml.cl looks for without-scheduling in :mp not acl-compat.mp
(unless (find-symbol  :mp)
  (import 'acl-compat.mp:without-scheduling :mp)
  (export (find-symbol "WITHOUT-SCHEDULING") :mp))

;;; phtml.cl starts with a sys:defpatch call
(unless (find-symbol "DEFPATCH" :sys)
  (defun defpatch (&rest l) l)
  (import 'defpatch :sys)
  (export (find-symbol "DEFPATCH" :sys) :sys))

(unless (find-package :net.html.parser)
  (load (merge-pathnames "xmlutils/phtml.cl" *load-pathname*))
  )