Changeset 5053


Ignore:
Timestamp:
12/10/03 16:33:58 (18 years ago)
Author:
piso
Message:

DEFCLASS: signal an error if not enough arguments.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/clos.lisp

    r5052 r5053  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: clos.lisp,v 1.28 2003-12-10 14:52:25 piso Exp $
     4;;; $Id: clos.lisp,v 1.29 2003-12-10 16:33:58 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    584584    class))
    585585
    586 (defmacro defclass (name direct-superclasses direct-slots
    587                          &rest options)
     586(defmacro defclass (&whole form name direct-superclasses direct-slots &rest options)
     587  (unless (>= (length form) 3)
     588    (error 'program-error "wrong number of arguments for DEFCLASS"))
    588589  `(ensure-class ',name
    589590                 :direct-superclasses
Note: See TracChangeset for help on using the changeset viewer.