Changeset 8201

Timestamp:

Jan 17, 2008, 9:29:50 AM (17 years ago)

Author:

Gary Byers

Message:

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

File:

• trunk/source/objc-bridge/objc-clos.lisp (modified) (2 diffs)

trunk/source/objc-bridge/objc-clos.lisp

@@ -776 +776 @@
             (declare (ignore ignore))
             (if foundp
-                (if (funcall typepred newval)
+                (if (or (null typepred)
+                        (funcall typepred newval))
                     (setf (slot-value instance sname) newval)
                   (report-bad-arg newval slot-type))
@@ -787 +788 @@
                            initfunction)
                   (let ((newval (funcall initfunction)))
-                    (unless (funcall typepred newval)
+                    (unless (or (null typepred)
+                                (funcall typepred newval))
                       (report-bad-arg newval slot-type))
                     (setf (%standard-instance-instance-location-access