--- a/SnapShotImageMemory.st Mon Feb 16 11:25:04 2004 +0100
+++ b/SnapShotImageMemory.st Mon Feb 16 12:00:38 2004 +0100
@@ -1613,6 +1613,10 @@
self isMeta ifTrue:[
cachedName := self theNonMetaclass name , ' class'
] ifFalse:[
+ self isPrivateMeta ifTrue:[
+self halt.
+ ].
+
nameRef := self nameSlot.
nameRef isInteger ifTrue:[
nameRef := memory fetchObjectAt:nameRef.
@@ -2122,10 +2126,10 @@
fileOutAllMethodsOn:aStream methodFilter:methodFilter
|collectionOfCategories|
- collectionOfCategories := self class categories asSortedCollection.
+ collectionOfCategories := self theMetaclass categories asSortedCollection.
collectionOfCategories notNil ifTrue:[
collectionOfCategories do:[:aCategory |
- self class fileOutCategory:aCategory methodFilter:methodFilter on:aStream.
+ self theMetaclass fileOutCategory:aCategory methodFilter:methodFilter on:aStream.
aStream cr
]
].
@@ -3952,8 +3956,13 @@
!
isMeta
- ^ self size == (Metaclass instSize).
-"/ ^ classRef classRef name = 'Metaclass'
+ |clsName|
+
+ clsName := classRef name.
+ ^ clsName = 'Metaclass' or:[clsName = 'PrivateMetaclass'].
+
+"/self halt.
+"/ ^ self size == (Metaclass instSize).
!
isNameSpace