Lispworks: fix THREADP

diff --git a/src/impl-lispworks.lisp b/src/impl-lispworks.lisp
index a78047b..35c13ab 100644 (file)
--- a/src/impl-lispworks.lisp
+++ b/src/impl-lispworks.lisp
@@ -30,10 +30,7 @@ Distributed under the MIT license (see LICENSE file)
   (mp:get-current-process))
 
 (defun threadp (object)
-  (or (mp:process-p object)
-      ;; removed in LispWorks 6.1
-      #+#.(cl:if (cl:find-symbol (cl:string '#:simple-process-p) :mp) '(and) '(or))
-      (mp:simple-process-p object)))
+  (mp:process-p object))
 
 (defun thread-name (thread)
   (mp:process-name thread))