On Sat, 30 Jun 2007, Stephen Wilson wrote:
| Hi Gaby,
|
| Looks like I missed your commit.
|
| MACERRORCOUNT appears unused and could be taken out as well. No idea
| what the (setq ... (.. (eval ..))) nonsense is about. Any idea?
Yes,
(case N ...
should be
(case nargs ...
A rewrite of the whole thing is possible, but in general I would
like to have the minimum change, leaving the general rewite for
later when I have the right tools at dsiposal.
-- Gaby
2007-07-01 Gabriel Dos Reis <[EMAIL PROTECTED]>
* vmlisp.lisp.pamphlet (MACRO-MISSINGARGS): Fix thinko in case
statement.
*** vmlisp.lisp.pamphlet (revision 22148)
--- vmlisp.lisp.pamphlet (local)
*************** can be restored.
*** 1858,1864 ****
(let ((nargs (abs N)))
(error (concatenate 'string (symbol-name NAME) " requires "
(if (minusp N) "at least " "exactly ")
! (case N (0 "no") (1 "one") (2 "two") (3 "three")
(4 "four") (5 "five") (6 "six")
(t (princ-to-string nargs)))
(if (eq nargs 1) " argument," " arguments,")))))
--- 1858,1864 ----
(let ((nargs (abs N)))
(error (concatenate 'string (symbol-name NAME) " requires "
(if (minusp N) "at least " "exactly ")
! (case nargs (0 "no") (1 "one") (2 "two") (3 "three")
(4 "four") (5 "five") (6 "six")
(t (princ-to-string nargs)))
(if (eq nargs 1) " argument," " arguments,")))))
_______________________________________________
Axiom-developer mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/axiom-developer
