[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Axiom-developer] Fix thinko in src/interp/vmlisp.lisp
From: |
Gabriel Dos Reis |
Subject: |
Re: [Axiom-developer] Fix thinko in src/interp/vmlisp.lisp |
Date: |
Sun, 1 Jul 2007 01:55:46 -0500 (CDT) |
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 <address@hidden>
* 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,")))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- Re: [Axiom-developer] Fix thinko in src/interp/vmlisp.lisp,
Gabriel Dos Reis <=