Re: distel and emacs unicode-2 (23.x)

Matthew Swank wrote:
> When node casper is not running, C-d C-h l yields the following message:
>
> nodedown: casper@localhost
>
> No surprise there. 
>
> However,  when casper is up with  'erl -R 9 -sname casper', C-d C-h l 
> yields the following messages:
>   
I apologize for responding to my own post, but I'm on a computer without 
w/o the messages from this thread.

After upgrading to the current svn, I get a little further (is -13417 
supposed to be a service name (like epmd) or a port?):

nodedown: casper@localhost
error in process filter: open-network-stream: localhost/-13417 Servname 
not supported for ai_socktype
error in process filter: localhost/-13417 Servname not supported for 
ai_socktype


Debugger entered--Lisp error: (error "localhost/-13417 Servname not 
supported for ai_socktype")
  make-network-process(:name "netfsm" :buffer #<buffer  *net-fsm*> :host 
"localhost" :service -13417)
  open-network-stream("netfsm" #<buffer  *net-fsm*> "localhost" -13417)
  (let ((p ...)) (set-process-coding-system p (quote no-conversion) 
(quote no-conversion)) p)
  (progn (let (...) (set-process-coding-system p ... ...) p))
  (prog1 (progn (let ... ... p)) (setq success t))
  (unwind-protect (prog1 (progn ...) (setq success t)) (unless success 
(kill-buffer buf)))
  (let (success) (unwind-protect (prog1 ... ...) (unless success ...)))
  (with-error-cleanup (kill-buffer buf) (let (...) 
(set-process-coding-system p ... ...) p))
  (let ((buf ...)) (with-error-cleanup (kill-buffer buf) (let ... ... p)))
  fsm-open-socket("localhost" -13417)
  (let ((socket ...)) (fsm-attach socket state0 init-arg cont fail-cont 
buffer))
  (progn (let (...) (fsm-attach socket state0 init-arg cont fail-cont 
buffer)))
  (prog1 (progn (let ... ...)) (setq success t))
  (unwind-protect (prog1 (progn ...) (setq success t)) (unless success 
(funcall fail-cont)))
  (let (success) (unwind-protect (prog1 ... ...) (unless success ...)))
  (with-error-cleanup (funcall fail-cont) (let (...) (fsm-attach socket 
state0 init-arg cont fail-cont buffer)))
  fsm-connect("localhost" -13417 derl-state0 casper@localhost nil 
(lambda nil (kill-buffer #<buffer *derl casper@localhost*>) 
(derl-nodedown (quote casper@localhost))) #<buffer *derl casper@localhost*>)
  (lambda (port) (fsm-connect "localhost" port (function derl-state0) 
(quote casper@localhost) nil (lambda nil ... ...) #<buffer *derl 
casper@localhost*>))(-13417)
  funcall((lambda (port) (fsm-connect "localhost" port (function 
derl-state0) (quote casper@localhost) nil (lambda nil ... ...) #<buffer 
*derl casper@localhost*>)) -13417)
  (progn (funcall cont result))
  (if cont (progn (funcall cont result)))
  (when cont (funcall cont result))
  (let ((cont fsm-cont)) (fsm-shutdown) (when cont (funcall cont result)))
  fsm-terminate(-13417)
  (cond ((member* event ...) (assert ...) (fsm-terminate ...)) ((member* 
event ...) (fsm-fail)) ((error "ecase failed: %s, %s" event ...) nil))
  (case event ((data) (assert ...) (fsm-terminate ...)) ((closed) 
(fsm-fail)) (ecase-error-flag))
  (ecase event ((data) (assert ...) (fsm-terminate ...)) ((closed) 
(fsm-fail)))
  epmd-recv-port-resp(data "\313\227")
  funcall(epmd-recv-port-resp data "\313\227")
  (progn (funcall fsm-state event arg))
  (prog1 (progn (funcall fsm-state event arg)) (setq success t))
  (unwind-protect (prog1 (progn ...) (setq success t)) (unless success 
(fsm-fail ...)))
  (let (success) (unwind-protect (prog1 ... ...) (unless success ...)))
  (with-error-cleanup (fsm-fail (format "Error on event %S in state %S" 
event fsm-state)) (funcall fsm-state event arg))
  fsm-event(data "\313\227")
  fsm-deliver-data("\313\227")
  (progn (fsm-deliver-data string))
  (if fsm-state (progn (fsm-deliver-data string)))
  (when fsm-state (fsm-deliver-data string))
  (save-current-buffer (set-buffer (process-buffer socket)) (when 
fsm-state (fsm-deliver-data string)))
  (with-current-buffer (process-buffer socket) (when fsm-state 
(fsm-deliver-data string)))
  fsm-filter(#<process netfsm> "\313\227")

-- 
"You do not really understand something unless you can explain it to your grandmother." - Albert Einstein.


-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys-and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV