Failure running Sepia module from Emax on windows(XP)

CPAN::Forum

Thread

Sepia [search.cpan.org] [Kobes search] [View and report bugs] [Ratings 0.0

0.0

(0) ]

[AnnoCPAN] [CPAN Tests results] [CPANTS]

Posted on Tue Sep 4 17:39:32 2007 by psimonovsk

Failure running Sepia module from Emax on windows(XP)

Hi! I have installed Emacs 22.1 and Sepia 0.92
Active state Perl 5.8.8
I have tried to apply Sepia functionality on sepia.pm... But - any attempt to run any Sepia function
bring same message |Wrong type argument: listp, ""|
Here is fragment from log window of Emacs:
_____________________________________________

Loading cl-extra...done let*: Wrong type argument: listp, "" Making completion list... let*: Wrong type argument: listp, "" Mark set Making completion list... let*: Wrong type argument: listp, "" byte-code: End of buffer byte-code: Beginning of buffer

_____________________________________________
What can I do now to solve this situation???

Direct Responses: 6010 | Write a response

Posted on Tue Sep 4 18:20:34 2007 by seano in response to 6009

Re: Failure running Sepia module from Emax on windows(XP)

I don't remember seeing this problem, and don't have access to a Windows machine. To get more information, please turn on debugging ("M-x set-variable RET debug-on-error RET t RET"), then post the backtrace Emacs gives.

Direct Responses: 6015 | 6016 | Write a response

Posted on Wed Sep 5 15:54:08 2007 by psimonovsk in response to 6010

Re: Failure running Sepia module from Emax on windows(XP)

Here is trace - that I got - when I tried to run sepia-callee-tree and given "Sepia"

Debugger entered--Lisp error: (wrong-type-argument listp "") car("") (setq x (car --cl-dolist-temp--)) (while --cl-dolist-temp-- (setq x (car --cl-dolist-temp--)) (apply (function widget-create) (sepi +a-tree-node ... x)) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))) (let ((--cl-dolist-temp-- defs) x) (while --cl-dolist-temp-- (setq x ...) (apply ... ...) (setq - +-cl-dolist-temp-- ...)) nil) (catch (quote --cl-block-nil--) (let (... x) (while --cl-dolist-temp-- ... ... ...) nil)) (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil))) (save-current-buffer (set-buffer bufname) (cl-block-wrapper (catch ... ...)) (use-local-map (copy +-keymap widget-keymap)) (sepia-install-keys) (let (...) (toggle-read-only 1)) (goto-char (point-mi +n)) (message "Type C-h m for usage information")) (progn (sepia-tree-tidy-buffer bufname) (save-current-buffer (set-buffer bufname) (cl-block-wrapp +er ...) (use-local-map ...) (sepia-install-keys) (let ... ...) (goto-char ...) (message "Type C-h +m for usage information"))) (let ((--cl-func-- ...)) (setf (symbol-value --cl-func--) func) (progn (sepia-tree-tidy-buffer bu +fname) (save-current-buffer ... ... ... ... ... ... ...))) (lexical-let ((func func)) (sepia-tree-tidy-buffer bufname) (with-current-buffer bufname (dolist +... ...) (use-local-map ...) (sepia-install-keys) (let ... ...) (goto-char ...) (message "Type C-h + m for usage information"))) (if defs (lexical-let (...) (sepia-tree-tidy-buffer bufname) (with-current-buffer bufname ... ... + ... ... ... ...)) (message "No items for %s" bufname)) sepia-build-tree-buffer(xref-callees "" "*Sepia callees*") (let* ((defs ...)) (sepia-build-tree-buffer (function xref-callees) defs (format "*%s callees*" n +ame))) sepia-callee-tree("Sepia") call-interactively(sepia-callee-tree) execute-extended-command(nil) call-interactively(execute-extended-command)

Direct Responses: 6023 | 6024 | Write a response

Posted on Wed Sep 5 15:56:08 2007 by psimonovsk in response to 6010

Re: Failure running Sepia module from Emax on windows(XP)

Another question.... At which platform - it is tested , and I can run it - right now???

Direct Responses: 6022 | Write a response

Posted on Wed Sep 5 18:46:57 2007 by seano in response to 6016

Re: Failure running Sepia module from Emax on windows(XP)

It is tested on Mac OS 10.4 with Carbon Emacs, where I develop it, and Debian, for which it's packaged. I'm happy to work with you to try to get it running on Windows.

Write a response

Posted on Wed Sep 5 18:52:11 2007 by seano in response to 6015

Re: Failure running Sepia module from Emax on windows(XP)

Thanks. I don't see this problem when calling sepia-callee-tree, but my first guess would be that you may be using a different version of tree-widget. Do you see the error with other sepia functions (e.g. sepia-callers, sepia-defs, sepia-callees)? If so, can you please post or send a backtrace?

Direct Responses: 6025 | Write a response

Posted on Wed Sep 5 18:53:51 2007 by seano in response to 6015

Re: Failure running Sepia module from Emax on windows(XP)

Actually, for easier management, could you possibly submit this as a bug in the Sepia queue on rt.cpan.org?

Write a response

Posted on Wed Sep 5 21:46:49 2007 by psimonovsk in response to 6023

Re: Failure running Sepia module from Emax on windows(XP)

Here is trace of sepia-package-defs

Debugger entered--Lisp error: (wrong-type-argument listp "") car("") (let* ((blah ...) (file ...) (line ...) (short ...) (mod ...)) (unless file (setq file ...) (if f +ile ... ...)) (message "%s at %s:%s" short file line) (when (file-exists-p file) (find-file ...) ( +when sepia-found-refiner ...) (beginning-of-line) (recenter) (setq sepia-found ...))) (progn (let* (... ... ... ... ...) (unless file ... ...) (message "%s at %s:%s" short file line) +(when ... ... ... ... ... ...))) (destructuring-bind (file line short &optional mod &rest blah) (car sepia-found) (unless file (se +tq file ...) (if file ... ...)) (message "%s at %s:%s" short file line) (when (file-exists-p file) + (find-file ...) (when sepia-found-refiner ...) (beginning-of-line) (recenter) (setq sepia-found . +..))) (if sepia-found (destructuring-bind (file line short &optional mod &rest blah) (car sepia-found) +(unless file ... ...) (message "%s at %s:%s" short file line) (when ... ... ... ... ... ...)) (mes +sage "No more definitions.")) sepia-next() (if display-p (sepia-show-locations ret) (sepia-set-found ret (quote ...)) (sepia-next)) (let ((ret ...)) (sepia-set-found nil (quote ...)) (if display-p (sepia-show-locations ret) (sepi +a-set-found ret ...) (sepia-next))) sepia-package-defs(#("mod_decls" 0 9 (face font-lock-function-name-face font-lock-multiline t fon +tified t)) nil "c:/Sepia/lib/Sepia.pm" 354 nil) call-interactively(sepia-package-defs) execute-extended-command(nil) call-interactively(execute-extended-command) recursive-edit() byte-code

Write a response

Service launched on 2nd of February 2005.
Comments, and other submissions on CPAN Forum are Copyright 2005-2007, their respective owners.
Site maintainer is not responsible for content. Privacy Policy

Maintained and hosted by Gabor Szabo at Perl Training Israel

See also World Wide Perl Training