Skip to content

Instantly share code, notes, and snippets.

@hirose31
Created March 11, 2009 16:12
Show Gist options
  • Save hirose31/77539 to your computer and use it in GitHub Desktop.
Save hirose31/77539 to your computer and use it in GitHub Desktop.
Debugger entered--Lisp error: (wrong-type-argument stringp (:error (error connection-failed "deleted
" :host "api.dan.co.jp" :service 80) :error (error connection-failed "failed with code 111
" :host "api.dan.co.jp" :service 80)))
message((:error (error connection-failed "deleted\n" :host "api.dan.co.jp" :service 80) :error (error connection-failed "failed with code 111\n" :host "api.dan.co.jp" :service 80)))
(if status (message status) (let (...) (with-temp-buffer ... ... ...)))
(lambda (status) (url-mark-buffer-as-dead (current-buffer)) (if status (message status) (let ... ...)))((:error (error connection-failed "deleted\n" :host "api.dan.co.jp" :service 80) :error (error connection-failed "failed with code 111\n" :host "api.dan.co.jp" :service 80)))
apply((lambda (status) (url-mark-buffer-as-dead (current-buffer)) (if status (message status) (let ... ...))) (:error (error connection-failed "deleted\n" :host "api.dan.co.jp" :service 80) :error (error connection-failed "failed with code 111\n" :host "api.dan.co.jp" :service 80)))
url-http-activate-callback()
url-http-async-sentinel(#<process api.dan.co.jp> "deleted\n")
kill-buffer(#<buffer *http api.dan.co.jp:80*>)
url-gc-dead-buffers()
url-retrieve-internal("http://api.dan.co.jp/perleval.cgi?c=cb&s=print%20%24%24%3b%0a%0a" (lambda (status) (url-mark-buffer-as-dead (current-buffer)) (if status (message status) (let ... ...))) (nil))
url-retrieve("http://api.dan.co.jp/perleval.cgi?c=cb&s=print%20%24%24%3b%0a%0a" (lambda (status) (url-mark-buffer-as-dead (current-buffer)) (if status (message status) (let ... ...))))
(let ((url ...) (cb ...)) (url-retrieve url cb))
dan-perl(#("print $$;\n\n" 0 5 (face cperl-nonoverridable-face fontified t) 5 10 (fontified t) 10 11 (fontified t)))
dan-perl-buffer()
call-interactively(dan-perl-buffer)
execute-extended-command(nil)
call-interactively(execute-extended-command)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment