Eliot Miranda uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-eem.1341.mcz==================== Summary ====================
Name: Kernel-eem.1341
Author: eem
Time: 19 September 2020, 7:16:49.354509 am
UUID: facfc991-969e-4997-acb1-42478416023b
Ancestors: Kernel-dtl.1340
Add two useful CompiledMethod testing methods... that sounds clumsy :-)
=============== Diff against Kernel-dtl.1340 ===============
Item was added:
+ ----- Method: CompiledMethod>>isLinkedNamedPrimitive (in category 'testing') -----
+ isLinkedNamedPrimitive
+ "Answer if the receiver invokes a named primitive, and the method is linked to an actual primitive.
+ For example if the method hasn;t yet been used in the current session, it won't be linked"
+ ^self isNamedPrimitive and: [(self literalAt: 1) fourth ~= 0]
+
+ "self systemNavigation browseAllSelect: [:m| m isLinkedNamedPrimitive]"!
Item was added:
+ ----- Method: CompiledMethod>>isNamedPrimitive (in category 'testing') -----
+ isNamedPrimitive
+ "Answer if the receiver invokes a named primitive."
+ ^self primitive == 117
+
+ "self systemNavigation browseAllSelect: [:m| m isNamedPrimitive]"!