Changeset 15559


Ignore:
Timestamp:
Jan 4, 2013, 9:30:57 AM (6 years ago)
Author:
gb
Message:

DEFAULT-INITARGS: allow CLASS argument to be any slot-bearing class,
not just STD-CLASS.
(MAKE-INSTANCE objc-class) : use DEFAULT-INITARGS. Fixes ticket:1045
in the trunk.

Location:
trunk/source
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-clos-boot.lisp

    r15489 r15559  
    26922692
    26932693(defun default-initargs (class initargs)
    2694   (unless (std-class-p class)
    2695     (setq class (require-type class 'std-class)))
     2694  (unless (typep class 'slots-class)
     2695    (setq class (require-type class 'slots-class)))
    26962696  (when (null (%class.cpl class)) (update-class class t))
    26972697  (let ((defaults ()))
  • trunk/source/objc-bridge/objc-clos.lisp

    r15476 r15559  
    721721
    722722(defmethod make-instance ((class objc:objc-class-object) &rest initargs)
     723  (setq initargs (default-initargs class initargs))
    723724  (let ((instance (apply #'allocate-instance class initargs)))
    724725    (if (%null-ptr-p instance)
Note: See TracChangeset for help on using the changeset viewer.