(in-package "PORT")

    ;;; Lispworks modifications..
    ;;; -----------------------
    ;;; PORT relies on a function for Lispworks that does not
    ;;; exist at least in LWW4.1.20, so define a replacement
    ;;; here...
    ;;;
#+lispworks
(defun comm:start-up-server-and-mp (&key function service)
   (comm:start-up-server :function function :service service))


