(slots-init nil slots-init-p))
(let ((fin (%make-pcl-funcallable-instance nil nil
(get-instance-hash-code))))
- (set-funcallable-instance-fun
+ (set-funcallable-instance-function
fin
#'(instance-lambda (&rest args)
(declare (ignore args))
:metaclass metaclass :name name
:direct-superclasses supers
:direct-slots slots)
- (let ((supers (nsubstitute t 'instance supers)))
- (ensure-class-using-class name nil
- :metaclass metaclass :name name
- :direct-superclasses supers))))))
+ (ensure-class-using-class name nil
+ :metaclass metaclass :name name
+ :direct-superclasses supers)))))
(cond ((structure-type-p name)
(ensure 'structure-class
(mapcar #'slot-initargs-from-structure-slotd