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