Lispworks: use PROCESS-PROPERTY instead of PROCESS-PRIVATE-PROPERTY
authorMartin Simmons <martin@lispworks.com>
Thu, 21 Mar 2013 18:58:18 +0000 (19:58 +0100)
committerStelian Ionescu <sionescu@cddr.org>
Thu, 21 Mar 2013 18:58:48 +0000 (19:58 +0100)
Process private properties are removed when the process exits

src/impl-lispworks.lisp

index fd8245c..882866b 100644 (file)
@@ -25,7 +25,7 @@ Distributed under the MIT license (see LICENSE file)
    (lambda ()
      (let ((return-values
              (multiple-value-list (funcall function))))
-       (setf (mp:process-private-property 'return-values (current-thread))
+       (setf (mp:process-property 'return-values)
              return-values)
        (values-list return-values)))))
 
@@ -119,7 +119,7 @@ Distributed under the MIT license (see LICENSE file)
 (defun join-thread (thread)
   (%join-thread thread)
   (let ((return-values
-          (mp:process-private-property 'return-values thread)))
+          (mp:process-property 'return-values thread)))
     (values-list return-values)))
 
 (mark-supported)