Bug: building master fails with "Wrong type argument: arrayp, nil"

[Parham Doustdar <parham90@xxxxxxxxxxx>]

Hi,

I'm running Emacspeak on MacOS, and this seems to be an issue somewhere in mac-voices.el. I can't get the Emacs debugger to show me files and line numbers, so any information on how I could debug this kind of issue without grepping a whole bunch would be great.

Here is the command I run:

emacs -batch -q -no-site-file -f package-initialize -f toggle-debug-on-error --eval '(setq file-name-handler-alist nil gc-cons-threshold 64000000 load-source-file-function  nil)'   -l "../lisp"/emacspeak-preamble.el -l "../lisp"/emacspeak-loaddefs.el   -f batch-byte-compile emacspeak-preamble.el

Here is the output:

Debug on Error enabled globally
Debugger entered--Lisp error: (wrong-type-argument arrayp nil)
  aref(nil 4)
  (if value (aref (mac-css-get-code-table family 'richness) value) "")
  mac-get-richness-code(4 nil)
  (concat (mac-get-family-code family) (mac-get-average-pitch-code (progn (or (and (memq (type-of style) cl-struct-acss-tags) t) (signal 'wrong-type-argument (list 'acss style))) (aref style 2)) family) (mac-get-pitch-range-code (progn (or (and (memq (type-of style) cl-struct-acss-tags) t) (signal 'wrong-type-argument (list 'acss style))) (aref style 3)) family) (mac-get-stress-code (progn (or (and (memq (type-of style) cl-struct-acss-tags) t) (signal 'wrong-type-argument (list 'acss style))) (aref style 4)) family) (mac-get-richness-code (progn (or (and (memq (type-of style) cl-struct-acss-tags) t) (signal 'wrong-type-argument (list 'acss style))) (aref style 5)) family))
  (let* ((family (progn (or (and (memq (type-of style) cl-struct-acss-tags) t) (signal 'wrong-type-argument (list 'acss style))) (aref style 1))) (command (concat (mac-get-family-code family) (mac-get-average-pitch-code (progn (or (and ... t) (signal ... ...)) (aref style 2)) family) (mac-get-pitch-range-code (progn (or (and ... t) (signal ... ...)) (aref style 3)) family) (mac-get-stress-code (progn (or (and ... t) (signal ... ...)) (aref style 4)) family) (mac-get-richness-code (progn (or (and ... t) (signal ... ...)) (aref style 5)) family)))) (mac-define-voice name command))
  tts-define-voice-from-speech-style(acss-p4-s0-r4 #s(acss :family nil :average-pitch nil :pitch-range 4 :stress 0 :richness 4))
  (if (tts-voice-defined-p name) nil (tts-define-voice-from-speech-style name style))
  (let ((f (progn (or (and (memq (type-of style) cl-struct-acss-tags) t) (signal 'wrong-type-argument (list 'acss style))) (aref style 1))) (a (progn (or (and (memq (type-of style) cl-struct-acss-tags) t) (signal 'wrong-type-argument (list 'acss style))) (aref style 2))) (p (progn (or (and (memq (type-of style) cl-struct-acss-tags) t) (signal 'wrong-type-argument (list 'acss style))) (aref style 3))) (s (progn (or (and (memq (type-of style) cl-struct-acss-tags) t) (signal 'wrong-type-argument (list 'acss style))) (aref style 4))) (r (progn (or (and (memq (type-of style) cl-struct-acss-tags) t) (signal 'wrong-type-argument (list 'acss style))) (aref style 5))) (name nil)) (setq name (intern (format "acss%s%s%s%s%s" (if f (format "-%s" f) "") (if a (format "-a%s" a) "") (if p (format "-p%s" p) "") (if s (format "-s%s" s) "") (if r (format "-r%s" r) "")))) (if (tts-voice-defined-p name) nil (tts-define-voice-from-speech-style name style)) name)
  voice-acss-from-speech-style(#s(acss :family nil :average-pitch nil :pitch-range 4 :stress 0 :richness 4))
  (let ((voice (voice-acss-from-speech-style (record 'acss (nth 0 style-list) (nth 1 style-list) (nth 2 style-list) (nth 3 style-list) (nth 4 style-list))))) voice)
  voice-setup-acss-from-style((nil nil 4 0 4))
  (defvar voice-annotate (voice-setup-acss-from-style '(nil nil 4 0 4)) "Customize  via voice-annotate-settings.")
  require(voice-defs)
  load("/Users/pdoustdar/src/emacspeak/lisp/emacspeak-prea..." nil t)
  command-line-1(("-f" "package-initialize" "-f" "toggle-debug-on-error" "--eval" "(setq file-name-handler-alist nil gc-cons-threshol..." "-l" "../lisp/emacspeak-preamble.el" "-l" "../lisp/emacspeak-loaddefs.el" "-f" "batch-byte-compile" "emacspeak-preamble.el"))
  command-line()
  normal-top-level()

Thanks a lot.

Best,

Parham