code clean-up, minor improvements

core/actor.lisp

@@ -5,7 +5,7 @@
   (:local-nicknames (:async :scopes/util/async) 
                     (:shape :scopes/shape)
                     (:util :scopes/util))
-  (:export #:start #:stop #:become #:create #:send
+  (:export #:start #:stop #:create #:send
            #:message #:content #:customer
            #:*logger* #:*root*
            #:echo #:inc #:lgi
@@ -22,9 +22,6 @@
   ((content :reader content :initarg :content :initform nil)
    (customer :reader customer :initarg :customer :initform nil)))
 
-(defmethod x-print-object ((msg message) stream)
-  (shape:print-slots msg stream 'content 'customer))
-
 (defun message (content &optional customer)
   (make-instance 'message :content content :customer customer))
 

util/async.lisp

@@ -5,7 +5,8 @@
   (:local-nicknames (:util :scopes/util)
                     (:lp :lparallel)
                     (:lpq :lparallel.queue))
-  (:export #:init #:finish #:make-ch #:make-mb #:rcv #:snd #:submit-task
+  (:export #:init #:finish #:make-ch #:make-mb #:rcv #:snd 
+           #:submit-task #:receive-result
            #:task #:make-task #:start #:status #:wait-receive))
 
 (in-package :scopes/util/async)
@@ -36,11 +37,11 @@
 (defun submit-task (ch job)
   (lp:submit-task ch job))
 
-;;;; task class and related functions
-
 (defun receive-result (ch)
   (lp:receive-result ch))
 
+;;;; task class and related functions
+
 (defclass task ()
   ((job :reader job :initarg :job)
    (taskid :reader taskid :initform (gensym "TSK"))