[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Axiom-developer] Problem with patch 23 and Solaris 9 identified
From: |
Camm Maguire |
Subject: |
Re: [Axiom-developer] Problem with patch 23 and Solaris 9 identified |
Date: |
08 Jan 2005 12:52:53 -0500 |
User-agent: |
Gnus/5.09 (Gnus v5.9.0) Emacs/21.2 |
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 (fl function-list)
(when (equalp chapter (subseq (string f) 0 l)))
(push f r))
(nreverse r)))
Don't know why this does not occur elsewhere.
Will reply separately regarding your debugging question.
Take care,
"Kostas Oikonomou" <address@hidden> writes:
> I just discovered that the problem I reported a few days ago is caused by
> the function "get-NAG-chapter" in "util.lisp".
>
> Here is a test file "bug.lisp":
>
> ==========================================================================
> (setq ch "c02")
> (setq fl
> '("LOADNAG" "|c02aff|" "|c02agf|" "|c05adf|" "|c05nbf|" "|c05pbf|"
> "|c06eaf|" "|c06ebf|" "|c06ecf|" "|c06ekf|" "|c06fpf|" "|c06fqf|" "|c06frf|"
> "|c06fuf|" "|c06gbf|" "|c06gcf|" "|c06gqf|" "|c06gsf|" "|d01ajf|" "|d01akf|"
> "|d01alf|" "|d01amf|" "|d01anf|" "|d01apf|" "|d01aqf|" "|d01asf|" "|d01bbf|"
> "|d01fcf|" "|d01gaf|" "|d01gbf|" "|d02bbf|" "|d02bhf|" "|d02cjf|" "|d02ejf|"
> "|d02gaf|" "|d02gbf|" "|d02kef|" "|d02raf|" "|d03edf|" "|d03eef|" "|d03faf|"
> "|e01baf|" "|e01bef|" "|e01bff|" "|e01bgf|" "|e01bhf|" "|e01daf|" "|e01saf|"
> "|e01sbf|" "|e01sef|" "|e02adf|" "|e02aef|" "|e02agf|" "|e02ahf|" "|e02ajf|"
> "|e02akf|" "|e02baf|" "|e02bbf|" "|e02bcf|" "|e02bdf|" "|e02bef|" "|e02daf|"
> "|e02dcf|" "|e02ddf|" "|e02def|" "|e02dff|" "|e02gaf|" "|e02zaf|" "|e04dgf|"
> "|e04fdf|" "|e04gcf|" "|e04jaf|" "|e04mbf|" "|e04naf|" "|e04ucf|" "|e04ycf|"
> "|f01brf|" "|f01bsf|" "|f01maf|" "|f01mcf|" "|f01qcf|" "|f01qdf|" "|f01qef|"
> "|f01rcf|" "|f01rdf|" "|f01ref|" "|f02aaf|" "|f02abf|" "|f02adf|" "|f02ae!
> f|" "|f02aff|" "|f02agf|" "|f02ajf|" "|f02akf|" "|f02awf|" "|f02axf|"
> "|f02bbf|" "|f02bjf|" "|f02fjf|" "|f02wef|" "|f02xef|" "|f04adf|"
> "|f04arf|" "|f04asf|" "|f04atf|" "|f04axf|" "|f04faf|" "|f04jgf|"
> "|f04maf|" "|f04mbf|" "|f04mcf|" "|f04qaf|" "|f07adf|" "|f07aef|"
> "|f07fdf|" "|f07fef|" "|s01eaf|" "|s13aaf|" "|s13acf|" "|s13adf|"
> "|s14aaf|" "|s14abf|" "|s14baf|" "|s15adf|" "|s15aef|" "|s17acf|"
> "|s17adf|" "|s17aef|" "|s17aff|" "|s17agf|" "|s17ahf|" "|s17ajf|"
> "|s17akf|" "|s17dcf|" "|s17def|" "|s17dgf|" "|s17dhf|" "|s17dlf|"
> "|s18acf|" "|s18adf|" "|s18aef|" "|s18aff|" "|s18dcf|" "|s18def|"
> "|s19aaf|" "|s19abf|" "|s19acf|" "|s19adf|" "|s20acf|" "|s20adf|"
> "|s21baf|" "|s21bbf|" "|s21bcf|" "|s21bdf|")
> )
>
> (defun get-NAG-chapter (chapter function-list)
> (apply 'append
> (mapcar
> #'(lambda (f)
> (cond ((equalp chapter (subseq (string f) 0 (length chapter))) (list f
> ))))
> function-list)))
>
> (si::use-fast-links nil)
> (get-NAG-chapter ch fl)
> ==========================================================================
>
>
> bash-2.05$ /home/build/axiom--main--1--patch-23/obj/sol9gcc/bin/lisp
> > (load "bug.lisp")
> Loading bug.lisp
>
> Error: Lisps arglist maximum surpassed
> Error signalled by APPLY.
> Broken at SYSTEM::BREAK-LEVEL. Type :H for Help.
> >> :q
> Top level.
> > (quit)
> bash-2.05$
>
>
> _______________________________________________
> Axiom-developer mailing list
> address@hidden
> http://lists.nongnu.org/mailman/listinfo/axiom-developer
>
>
>
--
Camm Maguire address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens." -- Baha'u'llah
- [Axiom-developer] Problem with patch 23 and Solaris 9 identified, Kostas Oikonomou, 2005/01/08
- Re: [Axiom-developer] Problem with patch 23 and Solaris 9 identified,
Camm Maguire <=
- Re: [Axiom-developer] Problem with patch 23 and Solaris 9 identified, root, 2005/01/08
- RE: [Axiom-developer] Problem with patch 23 and Solaris 9 identified, Bill Page, 2005/01/08
- Re: [Axiom-developer] Problem with patch 23 and Solaris 9 identified, root, 2005/01/08
- RE: [Axiom-developer] Problem with patch 23 and Solaris 9 identified, Bill Page, 2005/01/08
- Re: [Axiom-developer] Problem with patch 23 and Solaris 9 identified, root, 2005/01/08
- RE: [Axiom-developer] Problem with patch 23 and Solaris 9 identified, Bill Page, 2005/01/08
- Re: [Axiom-developer] Problem with patch 23 and Solaris 9 identified, root, 2005/01/08
- RE: [Axiom-developer] Problem with patch 23 and Solaris 9 identified, Bill Page, 2005/01/08
Re: [Axiom-developer] Problem with patch 23 and Solaris 9 identified, Kostas Oikonomou, 2005/01/08