Changeset 4911


Ignore:
Timestamp:
11/29/03 04:21:33 (18 years ago)
Author:
piso
Message:

DO-ARG-COUNT-ERROR

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/destructuring-bind.lisp

    r4904 r4911  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: destructuring-bind.lisp,v 1.7 2003-11-28 05:58:57 piso Exp $
     4;;; $Id: destructuring-bind.lisp,v 1.8 2003-11-29 04:21:33 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    3131
    3232(defun do-arg-count-error (error-kind name arg lambda-list minimum maximum)
    33   (error "Error in do-arg-count-error: ~S ~S ~S ~S ~S ~S~%"
    34    error-kind
    35    name
    36    arg
    37    lambda-list
    38    minimum
    39    maximum))
     33  (error 'program-error "wrong number of arguments for ~S" name))
    4034
    4135(defun parse-defmacro (lambda-list arg-list-name code name error-kind
     
    278272              ',lambda-list ,minimum
    279273              ,(unless restp maximum))
    280          `(,error-fun 'defmacro-ll-arg-count-error
     274                             `(,error-fun 'defmacro-ll-arg-count-error
    281275         :kind ',error-kind
    282276         ,@(when name `(:name ',name))
Note: See TracChangeset for help on using the changeset viewer.