Changeset 13783

Timestamp:

01/16/12 12:36:33 (11 years ago)

Author:

rschlatte

Message:

Robustify funcallable-instances with respect to unspecified behavior.

File:

• trunk/abcl/src/org/armedbear/lisp/clos.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/clos.lisp

@@ -697 +697 @@
   (unless (class-finalized-p class)
     (std-finalize-inheritance class))
-  (sys::%allocate-funcallable-instance class))
+  (let ((instance (sys::%allocate-funcallable-instance class)))
+    (set-funcallable-instance-function
+     instance
+     #'(lambda (&rest args)
+         (declare (ignore args))
+         (error 'program-error "Called a funcallable-instance with unset function.")))
+    instance))
 
 (defun make-instance-standard-class (metaclass