mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-05-10 17:41:10 -07:00
Code Issues Projects Releases Packages Wiki Activity

tests: mop: add a unit tests for FUNCALLABLE-STANDARD-OBJECT

Browse source 
Test whether it is correctly recognized as the subtype of the function.
This commit is contained in:
Daniel Kochmański 2026-05-07 20:27:34 +02:00
parent 38301ba9e7
commit bd1f226f31
1 changed files with 23 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/tests/normal-tests/metaobject-protocol.lsp
View file

@ -760,3 +760,26 @@ the metaclass")
;;; STANDARD-METHOD is removed.
(test mop.0029.standard-method-metastability
(finishes (clos:finalize-inheritance (find-class 'standard-method))))
;;; Date 2026-05-07
;;; Description
;;;
;;; Funcallable instances are normal instances recognized as funcallables
;;; with a header flag .isgf; before MOP:SET-FUNCALLABLE-INSTANCE-FUNCTION
;;; was called, or if it was called with NIL, object->instance.isgf was
;;; assigned NULL value, thus (functionp object) returned incorrectly nil.
(deftest mop.0030 ()
(let* ((funclass (find-class 'mop:funcallable-standard-object))
(instance (allocate-instance funclass)))
(is (typep instance 'function))
(is (functionp instance))
(mop:set-funcallable-instance-function instance (lambda ()))
(is (typep instance 'function))
(is (functionp instance))
(mop:set-funcallable-instance-function instance nil)
(is (typep instance 'function))
(is (functionp instance))))
;;; Ensure that funcallable object is subclass of function.
(deftest mop.0031 ()
(subtypep 'mop:funcallable-standard-object 'function))