Re: [Axiom-developer] getrulefunlists

[Stephen Wilson]

Gabriel Dos Reis <address@hidden> writes:
> *** src/interp/parsing.lisp.pamphlet  (revision 21589)
> --- src/interp/parsing.lisp.pamphlet  (local)
> *************** Symbolics read-line returns embedded new
> *** 908,914 ****
>       (set flnam pfx-funlist)
>       (if (not (lessp (setq n (length metapfx)) 0))
>           (setq unpfx-funlist
> !               (mapcar #'(lambda (x) (intern (subseq (copy-symbol (pname x)) 
> n)))
>                          pfx-funlist)))
>       (if unpfx-funlist (list pfx-funlist unpfx-funlist))))
>   
> --- 908,914 ----
>       (set flnam pfx-funlist)
>       (if (not (lessp (setq n (length metapfx)) 0))
>           (setq unpfx-funlist
> !               (mapcar #'(lambda (x) (intern (subseq (symbol-name 
> (copy-symbol (pname x))) n)))
>                          pfx-funlist)))
>       (if unpfx-funlist (list pfx-funlist unpfx-funlist))))

I dont understand this change.

In vmlisp.lisp:  

  (defun pname (x)
      (cond ((symbolp x) (symbol-name x))
        ((characterp x) (string x))
        (t nil)))


Thus (subseq (pname x) n)  should be sufficient.  Quite a lot of
redundant code in the above.


Thanks,
Steve