axiom-developer
[Top][All Lists]
Advanced

[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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]