Changeset 11685


Ignore:
Timestamp:
Feb 4, 2009, 10:40:44 PM (11 years ago)
Author:
gz
Message:

Umm, don't signal a program error for invalid slot type in defclass, just warn, since still want to compile the defclass. Also, the slot type is not quoted, duh.

File:
1 edited

Legend:

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

    r11683 r11685  
    19861986                      (setq type (cadr options))
    19871987                      ;; 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)))))
     1988                      (handler-case (specifier-type type env)
     1989                        (invalid-type-specifier ()
     1990                          (warn "Invalid type ~s in ~s slot definition ~s" type class-name slot))))
    19921991                     (:initform
    19931992                      (if initform-p
Note: See TracChangeset for help on using the changeset viewer.