anchor.diff:    )
   
   (defun logger (message)
  -  (declare (ignore message))
  -  )
  +  (format t "~&Logged: ~A~%" message))
   
   (defun command-processor (sender command)
     (let ((words (split-sequence #\space command :remove-empty-subseqs t)))
  
positive.code:                      :do (handler-case
                               (flet ((terminate-worker () (loop-finish)))
                                 (block ,name
                                   (destructuring-bind ,message-lambda-list ,vmessage
                                     (declare (ignorable ,@pl))
                                     ,@body)))
                             (error (err)
  
negative.code:         *command-processor* (make-worker-thread command-processor (sender message)
                                (format *trace-output* "~&~A -> ~A~%" sender message)
                                (command-processor sender message))
          *botil*             (make-worker-thread botil (command)
                                (format *trace-output* "~&BOTIL <- ~A~%" command)
                                (botil command))))
  