Changeset 13783


Ignore:
Timestamp:
01/16/12 12:36:33 (9 years ago)
Author:
rschlatte
Message:

Robustify funcallable-instances with respect to unspecified behavior.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/clos.lisp

    r13782 r13783  
    697697  (unless (class-finalized-p class)
    698698    (std-finalize-inheritance class))
    699   (sys::%allocate-funcallable-instance class))
     699  (let ((instance (sys::%allocate-funcallable-instance class)))
     700    (set-funcallable-instance-function
     701     instance
     702     #'(lambda (&rest args)
     703         (declare (ignore args))
     704         (error 'program-error "Called a funcallable-instance with unset function.")))
     705    instance))
    700706
    701707(defun make-instance-standard-class (metaclass
Note: See TracChangeset for help on using the changeset viewer.