anchor.diff:  	#+mcl :ccl
   	#+cmu :clos-mop
   	#+sbcl :sb-mop)
  -  (:export :def-pfun :send-pfun :remote-call))
  +  (:export :def-pfun :send-pfun 
  +	   :remote-eval :start-function-server 
  +	   :stop-function-server :force-write-svar))
   
   (in-package :func-dispatch)
   
  
positive.code:   (with-input-from-string (stream string)
      (unmarshal (read stream))))
  
  (defmacro def-pfun (name args &body body)
    `(progn 
       (declaim (notinline ,name))
  
negative.code:     (set-funcallable-instance-function obj (compile nil definition))))
  
  (defmethod (setf function-definition) :after ((obj function-with-definition) func-def)
    (unless (eql nil func-def) 
      (set-funcallable-instance-function obj (compile nil func-def))))
  
  (defmethod update-funcallable-function ((obj function-with-definition))
    (let ((lambda-def (function-definition obj)))
  