Re: [Axiom-developer] Fix thinko in src/interp/vmlisp.lisp

[Gabriel Dos Reis]

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,")))))