Changeset 8201


Ignore:
Timestamp:
Jan 17, 2008, 5:29:50 PM (12 years ago)
Author:
gb
Message:

slot type predicates are optional (for type T) now.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/objc-bridge/objc-clos.lisp

    r7375 r8201  
    776776            (declare (ignore ignore))
    777777            (if foundp
    778                 (if (funcall typepred newval)
     778                (if (or (null typepred)
     779                        (funcall typepred newval))
    779780                    (setf (slot-value instance sname) newval)
    780781                  (report-bad-arg newval slot-type))
     
    787788                           initfunction)
    788789                  (let ((newval (funcall initfunction)))
    789                     (unless (funcall typepred newval)
     790                    (unless (or (null typepred)
     791                                (funcall typepred newval))
    790792                      (report-bad-arg newval slot-type))
    791793                    (setf (%standard-instance-instance-location-access
Note: See TracChangeset for help on using the changeset viewer.