Ticket #83: make-instance-unfinalized-class.patch

File make-instance-unfinalized-class.patch, 564 bytes (added by ehuelsmann, 11 years ago)

Alternative solution, adding to MAKE-INSTANCE instead

  • clos.lisp

     
    22582258    (error 'program-error :format-control "Odd number of keyword arguments."))
    22592259  (unless (class-finalized-p class)
    22602260    (std-finalize-inheritance class))
     2261  (unless (class-finalized-p class)
     2262    (error "Can't instantiate unfinalized class ~A." class))
    22612263  (let ((class-default-initargs (class-default-initargs class)))
    22622264    (when class-default-initargs
    22632265      (let ((default-initargs '()))