! file: class2.gs
! $Id: class2.gs,v 1.2 2005-06-08 00:04:14 otisa Exp $

!  this file is input at the end of filein after all classes are defined

category: 'Private'
method: Class
_sortedClassVarNames

"Returns a sorted list of class variable names. "

^ SortedCollection withAll: classVars keys
%

category: 'Private'
method: Class
_validateInstancesPersistent

"check that it is legal to make instances of the receiver 
 persistent."

| list |
list := #[ 
  IdentityKeySoftValueDictionary, IdentitySoftCollisionBucket,
  KeySoftValueDictionary , SoftCollisionBucket , SoftReference , Semaphore
].
list do:[ :aCls | 
  aCls == self ifTrue:[ self _error: #rtErrSuperclassIsNP ].
].
%
