Class Object nil
Methods Object

	deepCopy	| newObj |
		newObj <- self class new.
		(1 to: self basicSize) do: 
			[:i | newObj basicAt: i put: (self basicAt: i) copy].
		^ newObj

]
Methods Object

	hash
		^ <13 self>

]
Methods Object

	new
		" default initialization protocol"
		^ self

]
Methods Object

	shallowCopy	| newObj |
		newObj <- self class new.
		(1 to: self basicSize) do: 
			[:i | newObj basicAt: i put: (self basicAt: i) ].
		^ newObj

]
Methods Object

	isShortInteger
		^ false

]
Methods Object

	printString
		^ self class printString

]
Methods Object

	class
		^ <11 self>

]
Methods Object

	isKindOf: aClass
		self class upSuperclassChain:
			[:x | (x == aClass) ifTrue: [ ^ true ] ].
		^ false

]
Methods Object

	isLongInteger
		^ false

]
Methods Object

	= aValue
		^ self == aValue

]
Methods Object

	asString
		^ self printString

]
Methods Object

	basicAt: index
		^ <25 self index>

]
Methods Object

	basicAt: index put: value
		^ <31 self index value>

]
Methods Object

	isInteger
		^ false

]
Methods Object

	~~ aValue
		^ (self == aValue) not

]
Methods Object

	copy
		^ self shallowCopy

]
Methods Object

	isNil
		^ false

]
Methods Object

	isFraction
		^ false

]
Methods Object

	basicSize
		^ <12 self>

]
Methods Object

	isFloat
		^ false

]
Methods Object
	message: m notRecognizedWithArguments: a
		^ smalltalk error: 'not recognized ', (self class printString),
			' ', (m printString)

]
Methods Object

	== aValue
		^ <21 self aValue>

]
Methods Object

	notNil
		^ true

]
Methods Object
	isNumber
		^ false

]
Methods Object

	print
		self printString print 

]
Methods Object
	assign: name value: val
		^ name assign: val

]
Methods Object

	display
		('(Class ', self class, ') ' , self printString ) print

]
Methods Object

	isMemberOf: aClass
		^ self class == aClass

]
Methods Object

	respondsTo: message
		self class upSuperclassChain: 
			[:c | (c methodNamed: message) notNil
					ifTrue: [ ^ true ]].
		^ false

]