Changeset 8757


Ignore:
Timestamp:
Mar 13, 2008, 6:22:28 AM (11 years ago)
Author:
gb
Message:

Tweak error messages for NX1-LAMBDA-BIND a bit.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx1.lisp

    r8586 r8757  
    18351835            (while req
    18361836              (when (null arglist)
    1837                 (nx-error "Not enough args in Lambda form: ~S ~S." lambda-list args))
     1837                (nx-error "Not enough args ~S for (LAMBDA ~s ...)" args lambda-list))
    18381838              (let* ((var (pop req))
    18391839                     (val (pop arglist))
     
    18571857            (if arglist
    18581858              (when (and (not keys) (not rest))
    1859                 (nx-error "Extra args in Lambda form: ~S ~S." lambda-list args))
     1859                (nx-error "Extra args ~s for (LAMBDA ~s ,,,)" args lambda-list))
    18601860              (when rest
    18611861                (push rest vars*) (push *nx-nil* vals*)
     
    19151915                                (eq (%cadr arg) :allow-other-keys)
    19161916                                (and kallowother (symbolp (%cadr arg))))
    1917                       (nx-error "Invalid keyword in Lambda form: ~S ~S."
    1918                                 lambda-list args))
     1917                      (nx-error "Invalid keyword ~s in ~s for (LAMBDA ~S ...)"
     1918                                (%cadr arg) args lambda-list))
    19191919                    (when (and idx (null (%svref keyargs idx)))
    19201920                      (setq hit t)
Note: See TracChangeset for help on using the changeset viewer.