Class new title: Object
	subclassof: nil
	fields: ''
	declare: ''


 t1 
	[self > t1  false]

 t1 
	[self  t1] primitive: 56

 t1 
	[self = t1  false]

 t1 
	[self < t1  false]

 t1 
	[Generator new evaluate: t1 asStream in: false to: self notifying: self]

, t1 | t2 
	[t2 _ Vector new: 2.
	t2  1 _ self.
	t2  2 _ t1.
	t2]

= t1 
	[self  t1]

Altonail 
	[user croak] primitive: 53

AltounNail 
	[user croak] primitive: 53

Is: t1 
	[self class  t1  [true]
	self class Isa: t1]

Isnt: t1 
	[(self Is: t1)  false]

PTR 
	[] primitive: 36

and t1 
	[self  [t1 eval]
	false]

and: t1 
	[self  [t1]
	false]

argsOff: t1 
	[self  [t1 pop: 1]]

asFullString | t1 
	[t1 _ (String new: 20) asStream.
	self fullprinton: t1.
	t1 contents]

asOop 
	[user croak] primitive: 36

asParagraph 
	[self asString asParagraph]

asRemoteCode: t1 
	[ParsedRemote new expr: self]

asStream 
	[self asVector asStream]

asString | t1 
	[t1 _ (String new: 16) asStream.
	self printon: t1.
	t1 contents]

asVector | t1 
	[self  nil  [Vector new: 0]
	t1 _ Vector new: 1.
	t1  1 _ self.
	t1]

become: t1 
	[user croak] primitive: 38

canunderstand: t1 
	[self class canunderstand: t1]

class 
	[user croak] primitive: 24

copy 
	[self is: Object  [self]
	self class copy: self]

emitForEffect: t1 on: t2 
	[]

emitForTruth: t1 falsity: t2 into: t3 on: t4 
	[self emitForValue: t3 on: t4.
	t1 jmpSize + t2 emitBfp: t3 on: t4.
	t1 emitJmp: t3 on: t4]

emitForValue: t1 on: t2 
	[]

emitsLoad 
	[false]

emittedReceiver 
	[false]

emittedVariable 
	[false]

empty 
	[self length = 0]

eqv: t1 
	[t1  [self]
	self  false]

error 
	[user notify: 'message not understood.']

error: t1 
	[user notify: t1]

fields 
	[self class is: VariableLengthClass 
		[self length 
 50  [1 to: self length]
		(1 to: 20) concat: (self length - 20 to: self length)]
	self class instvars]

filout | t1 
	[user displayoffwhile 
		[t1 _ dp0 file: self title asFileName.
		self fullprinton: t1.
		t1 close]]

findMacros: t1 compilerTemps: t2 
	[]

firstPush 
	[1]

fullprint | t1 
	[t1 _ Stream default.
	self fullprinton: t1.
	user show: t1 contents]

fullprinton: t1 
	[self  nil  [t1 append: 'nil']
	self  false  [t1 append: 'false']
	self  true  [t1 append: 'true']
	self class print: self on: t1]

growTo: t1 
	[user croak] primitive: 52

hash 
	[user croak] primitive: 36

inVector | t1 
	[t1 _ Vector new: 1.
	t1  1 _ self.
	t1]

inspect 
	[user leaveTop.
	user restartup: (InspectWindow new of: self)]

inspectfield: t1 
	[self class is: VariableLengthClass  [self  (self fields  t1)]
	self instfield: t1]

installError | t1 t2 
	[t1 _ Object md method: error.
	t2 _ SpecialOops  1.
	t2 asOop  (mem  3)  [user notify: 'Object installError failed']
	Top critical 
		[mem  3 _ t1 asOop.
		SpecialOops  1 _ t1]]

instfield: t1 
	[user croak] primitive: 46

instfield: t1 _ t2 
	[user croak] primitive: 47

instfields | t1 t2 t3  
	[self class is: VariableLengthClass  [self  self fields]
	t2 _ self class instsize.
	t1 _ Vector new: t2.
	for t3 to: t2 do
		[t1  t3 _ self instfield: t3].
	t1]

interactive 
	[false]

is: t1 
	[self class  t1]

isArray 
	[false]

isField 
	[false]

isNumber 
	[false]

isnt: t1 
	[self class  t1  false]

itself

messageNotUnderstood: t1 withArgs: t2 from: t3 
	[thisContext sender_ t3.
	user notify: 'Message not understood: ' + t1]

nail 
	[NoteTaker  []
	self Altonail]

notify: t1 at: t2 in: t3 
	[self notify: t1 at: t2 in: t3 for: self class]

notify: t1 at: t2 in: t3 for: t4 | t5 
	[NotifyFlag 
		[t5 _ SyntaxWindow new of: t1 at: t2 in: t3 for: t4 from: thisContext sender.
		thisContext sender_ nil.
		user restartup: t5]
	user notify: t1.
	false]

or t1 
	[self  [true]
	t1 eval]

or: t1 
	[self  [true]
	t1]

perform: t1 
	[t1 mustTake: 0.
	self performDangerously: t1]

perform: t1 with: t2 
	[t1 mustTake: 1.
	self performDangerously: t1 with: t2]

perform: t1 with: t2 with: t3 
	[t1 mustTake: 2.
	self performDangerously: t1 with: t2 with: t3]

perform: t1 with: t2 with: t3 with: t4 
	[t1 mustTake: 3.
	self performDangerously: t1 with: t2 with: t3 with: t4]

perform: t1 withArgs: t2 
	[t1 mustTake: t2 length.
	self performDangerously: t1 withArgs: t2]

performDangerously: t1 
	[user notify: 'can''t perform: nil'] primitive: 48

performDangerously: t1 with: t2 
	[user notify: 'can''t perform: nil with:'] primitive: 48

performDangerously: t1 with: t2 with: t3 
	[user notify: 'can''t perform: nil with:with:'] primitive: 48

performDangerously: t1 with: t2 with: t3 with: t4 
	[user notify: 'can''t perform: nil with:with:with:'] primitive: 48

performDangerously: t1 withArgs: t2 | t3 
	[t3 _ t2 length.
	t3 = 0  [self performDangerously: t1]
	t3 = 1  [self performDangerously: t1 with: t2  1]
	t3 = 2  [self performDangerously: t1 with: t2  1 with: t2  2]
	t3 = 3  [self performDangerously: t1 with: t2  1 with: t2  2 with: t2  3]
	user notify: 'More than 3 args for perform:']

print 
	[user show: self asString]

printon: t1 | t2 
	[t1 append: [self  nil  ['nil']
	self  false  ['false']
	self  true  ['true']
	t2 _ self class title.
	t1 append: ['AEIO' has: t2  1  ['an ']
	'a '].
	t2]]

printon: t1 indent: t2 precedence: t3 forValue: t4 decompiler: t5 
	[]

recopy 
	[self is: Object  [self]
	self class recopy: self]

ref: t1 
	[FieldReference new object: self offset: t1]

refct 
	[user croak] primitive: 49

remote: t1 
	[]

returns 
	[false]

sameAs: t1 
	[self  t1]

sizeForEffect: t1 
	[0]

sizeForTruth: t1 falsity: t2 | t3 
	[t3 _ t1 jmpSize.
	self sizeForValue + (t3 + t2) bfpSize + t3]

sizeForValue 
	[0]

startup 
	[self firsttime 
		[while self eachtime do
			[].
		self lasttime]
	false]

subError 
	[self error: 'message not defined by subclass']

swap t1 | t2 
	[t2 _ t1 value.
	t1 value_ self.
	t2]

title 
	[self class title + '.' + self asOop base8]

unNail 
	[NoteTaker  []
	self AltounNail]

xor: t1 
	[t1  [self  false]
	self]