|
From: | anonymous |
Subject: | [Axiom-developer] [#49 GCL argument list too long] additional information |
Date: | Mon, 24 Jan 2005 21:10:03 -0600 |
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
[Prev in Thread] | Current Thread | [Next in Thread] |