[Axiom-developer] [#49 GCL argument list too long] additional information

[anonymous]

Greetings!  And thanks for the detective work!

Here's a fix:

(defun get-NAG-chapter (chapter function-list)
   (mapcan
    (lambda (f)
      (cond ((equalp chapter (subseq (string f) 0 (length chapter))) (list f 
))))
    function-list)))

or perhaps better

(defun get-NAG-chapter (chapter function-list)
   (let ((l (length chapter)) r)
      (dolist (f function-list)
        (when (equalp chapter (subseq (string f) 0 l)))
           (push f r))
      (nreverse r)))   

Don't know why this does not occur elsewhere.
--
forwarded from http://page.axiom-developer.org/zope/mathaction/address@hidden