[Maxima-commits] CVS: maxima/src merror.lisp, 1.18, 1.19
- Subject: [Maxima-commits] CVS: maxima/src merror.lisp, 1.18, 1.19
- From: Raymond Toy
- Date: Sat, 05 May 2007 09:48:52 -0400
Andreas Eder wrote:
> Update of /cvsroot/maxima/maxima/src
> In directory sc8-pr-cvs16:/tmp/cvs-serv747/src
>
> Modified Files:
> merror.lisp
> Log Message:
> replaced use of concat by intern/format and used the tuchus macro for
> adding at the tail end of a list.
>
>
> Index: merror.lisp
> ===================================================================
> RCS file: /cvsroot/maxima/maxima/src/merror.lisp,v
> retrieving revision 1.18
> retrieving revision 1.19
> diff -u -d -r1.18 -r1.19
> --- merror.lisp 19 Apr 2007 19:25:34 -0000 1.18
> +++ merror.lisp 4 May 2007 13:51:54 -0000 1.19
> @@ -129,13 +129,13 @@
> (nreverse new-argl)))
> (let ((form (pop l)))
> (cond ((> (error-size form) $error_size)
> - (setq symbol-number (1+ symbol-number))
> + (incf symbol-number)
> (let ((sym (nthcdr symbol-number $error_syms)))
> (cond (sym
> (setq sym (car sym)))
> (t
> - (setq sym (concat '$errexp symbol-number))
> - (setq $error_syms (append $error_syms (list sym)))))
> + (setq sym (intern (format "$ERREXP~D" symbol-number)))
> + (tuchus $error_syms sym)))
>
You replaced (setq $error_syms (append $error_syms (list sym))) with
tuchus? But you replaced concat with intern/format?
What makes tuchus special and concat not? What does tuchus mean anyway?
Ray