[aplusdev] problems getting started on OS X

[Terrence Brannon]

1 - I downloaded the 4.18 package
2 - I used the os x installer to install it in the default place 
(/usr/local/aplus-fsf-4.18)
3- I then started reading "Getting Started" it talked about using 
Emacs as if something had already been added to my .emacs, but I 
did not see any prior instructions on how to do this
4 - I tried both the lisp and lisp.1 directories (incidentally, 
the latter has a load command which refers to a lisp_new 
directory which is not created as part of pkg installation). 
Therefore I did a symlink from lisp.1 to lisp_new to fix this
5 - in both cases, I get errors with array datatypes. Here is 
what happens when I  (setq debug-on-error t) and then attempt M-x 
eval-current-buffer on (load "/usr/local/aplus-
fsf-4.18/lisp/aplus")

Signaling: (wrong-type-argument arrayp (meta 134217697))
   define-key((keymap) (meta 134217697) a-self-insert)
   (let ((key ...) (apl ...)) (define-key a-minor-map 
(list ... ...) (quote a-se$
   (lambda (akeydef) (let (... ...) (define-key 
a-minor-map ... ...) (aset a-key$
   mapcar((lambda (akeydef) (let (... ...) (define-key 
a-minor-map ... ...) (ase$
   (if a-minor-map nil (setq a-minor-map (make-sparse-keymap)) 
(setq a-key-strin$
   eval-buffer(#<buffer  *load*<3>> nil "keyb")
   load-with-code-conversion("/usr/local/aplus-
fsf-4.18/lisp/keyb.el" "keyb" nil$
   require(keyb)
   eval-buffer(#<buffer  *load*<2>> nil "xa")
   load-with-code-conversion("/usr/local/aplus-
fsf-4.18/lisp/xa.el" "xa" nil t)
   load("xa" nil t)
   eval-buffer(#<buffer  *load*> nil "/usr/local/aplus-
fsf-4.18/lisp/aplus")
   load-with-code-conversion("/usr/local/aplus-
fsf-4.18/lisp/aplus.el" "/usr/loc$
   load("/usr/local/aplus-fsf-4.18/lisp/aplus")
   eval((load "/usr/local/aplus-fsf-4.18/lisp/aplus"))
   eval-last-sexp(nil)
* call-interactively(eval-last-sexp)
   recursive-edit()
   byte-code("\306^H!\210\307^Q\310 
\210\311\307!\210p\312\313^Z^[^\\314 \210+eb$
   debug(error (void-function face-font-name))
   (face-font-name (quote default))
   (defvar old-default-font (face-font-name (quote default)))
   eval-current-buffer()
* call-interactively(eval-current-buffer)
   execute-extended-command(nil)
* call-interactively(execute-extended-command)

and a bit of experimentation shows that what it says is the case:

(arrayp (list 'meta (- key 128)))
nil

(listp (list 'meta (- key 128)))
t


I am emacs 20.7.1... what emacs did you guys manage to get this 
elisp code to work with ? Are you truly running GNU Emacs or are 
you
running xemacs?