Not working when compiled

[tkf]

Not working when compiled

[abingham]

OK, sorry about that. The only reason it's a macro is that I don't
really know lisp very well! I'll test out the change you suggest and
submit it.

Austin

On Mon, Jul 23, 2012 at 7:26 PM, Takafumi Arakaki
[email protected]
wrote:

I get the following traceback when tried M-x traad-rename-object.
This happens only when traad.el is compiled.

Debugger entered--Lisp error: (invalid-function traad-call)
  traad-call(rename "glob_list" "/home/takafumi/repos/watch/ipython/IPython/utils/path.py" 12110)
  traad-rename("glob_list" "/home/takafumi/repos/watch/ipython/IPython/utils/path.py" 12110)
  traad-rename-object("glob_list")
  call-interactively(traad-rename-object)
  (if (or (stringp (symbol-function cmd)) (vectorp (symbol-function cmd))) (execute-kbd-macro (symbol-function cmd)) (setq this-command cmd) (call-interactively cmd))
  (let* ((cmd (anything (if (and anything-execute-extended-command-use-kyr (require (quote anything-kyr-config) nil t)) (cons anything-c-source-kyr anything-execute-extended-command-sources) anything-execute-extended-command-sources)))) (unless (and cmd (commandp (intern-soft cmd))) (error "No command: %s" cmd)) (setq extended-command-history (cons cmd (delete cmd extended-command-history))) (setq cmd (intern cmd)) (if (or (stringp (symbol-function cmd)) (vectorp (symbol-function cmd))) (execute-kbd-macro (symbol-function cmd)) (setq this-command cmd) (call-interactively cmd)))
  anything-execute-extended-command()
  call-interactively(anything-execute-extended-command nil nil)

I don't see any reason why you want make it as a macro. The following should do the same job.

(defun traad-call (func &rest args)
  "Make an XMLRPC to FUNC with ARGS on the traad server."
  (apply
   #'xml-rpc-method-call
   (concat
    "http://" traad-host ":"
    (number-to-string traad-port))
   func args))

---

Reply to this email directly or view it on GitHub:
#5