Changeset 11683


Ignore:
Timestamp:
Feb 4, 2009, 5:49:48 PM (10 years ago)
Author:
gz
Message:

Make defclass complain about illegal types

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/macros.lisp

    r11669 r11683  
    19521952                      (writer-info (%cons-def-info 'defmethod (dpb 2 $lfbits-numreq 0) nil nil (list t class-name))))
    19531953                 (when (memq slot-name slot-names)
    1954                    (SIGNAL-PROGRAM-error "Multiple slots named ~S in DEFCLASS ~S" slot-name class-name))
     1954                   (signal-program-error "Multiple slots named ~S in DEFCLASS ~S" slot-name class-name))
    19551955                 (push slot-name slot-names)
    19561956                 (do ((options (cdr slot) (cddr options))
     
    19841984                        (duplicate-options slot)
    19851985                        (setq type-p t))
    1986                       ;(when (null (cadr options)) (signal-program-error "Illegal options ~S" options))
    1987                       (setq type (cadr options)))
     1986                      (setq type (cadr options))
     1987                      ;; complain about illegal typespecs
     1988                      (when (or (self-evaluating-p type) (quoted-form-p type))
     1989                        (handler-case (specifier-type (nx-unquote type) env)
     1990                          (invalid-type-specifier ()
     1991                            (signal-program-error "Invalid type ~s in slot definition ~s" type slot)))))
    19881992                     (:initform
    19891993                      (if initform-p
Note: See TracChangeset for help on using the changeset viewer.