	.file	"print.c"
	.version	"01.01"
gcc2_compiled.:
.globl line_length
.data
	.align 4
	.type	 line_length,@object
	.size	 line_length,4
line_length:
	.long 72
.LC0:
	.string	"Can't pretty-print."
.LC1:
	.string	"Can't pretty-print."
.text
	.align 4
.globl flush_queue
	.type	 flush_queue,@function
flush_queue:
	pushl %ebp
	movl %esp,%ebp
	subl $32,%esp
	pushl %edi
	pushl %esi
	pushl %ebx
.L118:
	movl printStructBufp,%ebx
.L27:
	movl %ebx,%ecx
	cmpl $0,776(%ebx)
	jle .L26
	.align 4
.L30:
	movl 768(%ecx),%esi
	leal 0(,%esi,2),%eax
	movswl (%eax,%ecx),%edx
	cmpl $256,%edx
	je .L32
	cmpl $257,%edx
	jne .L34
	addl $-2,780(%ecx)
	jmp .L116
	.align 4
.L34:
	cmpl $258,%edx
	jne .L36
	pushl PRINTstream
	call file_column
	movl %eax,%ecx
	movl printStructBufp,%edx
	movl 780(%edx),%edi
	leal 0(,%edi,2),%eax
	movw %cx,256(%eax,%edx)
	addl $4,%esp
	movl %edx,%ebx
	jmp .L33
	.align 4
.L36:
	cmpl $259,%edx
	je .L39
	cmpl $260,%edx
	jne .L41
	pushl PRINTstream
	call file_column
	movl printStructBufp,%ebx
	movl 780(%ebx),%esi
	movl %esi,-32(%ebp)
	addl %esi,%esi
	movl %esi,-28(%ebp)
	leal 256(%ebx),%ecx
	movswl (%esi,%ecx),%edx
	subl %edx,%eax
	addl $4,%esp
	cmpl $7,%eax
	jg .L42
	movl line_length,%eax
	shrl $31,%eax
	addl line_length,%eax
	sarl $1,%eax
	cmpl %eax,%edx
	jge .L39
	pushl PRINTstream
	pushl $32
	call writec_stream
	pushl PRINTstream
	call file_column
	movl %eax,%ecx
	movl printStructBufp,%edx
	movl 780(%edx),%edi
	leal 0(,%edi,2),%eax
	movw %cx,256(%eax,%edx)
	addl $12,%esp
	movl %edx,%ebx
	jmp .L33
	.align 4
.L42:
	movl line_length,%eax
	shrl $31,%eax
	addl line_length,%eax
	sarl $1,%eax
	cmpl %eax,%edx
	jge .L39
	movl -32(%ebp),%esi
	movw -2(%ecx,%esi,2),%di
	addl $4,%edi
	movl -28(%ebp),%esi
	movw %di,(%esi,%ecx)
	movl printStructBufp,%ebx
	jmp .L39
	.align 4
.L41:
	cmpl $261,%edx
	je .L114
	cmpl $255,%edx
	jg .L33
	pushl PRINTstream
	pushl %edx
	call writec_stream
	addl $8,%esp
.L116:
	movl printStructBufp,%ebx
.L33:
	movl 768(%ebx),%ecx
	leal 1(%ecx),%edx
	movl %edx,%eax
	testl %edx,%edx
	jge .L50
	leal 128(%ecx),%eax
.L50:
	andb $128,%al
	subl %eax,%edx
	movl %edx,768(%ebx)
	movl printStructBufp,%eax
	decl 776(%eax)
	movl %eax,%ebx
	movl %ebx,%ecx
	cmpl $0,776(%ebx)
	jg .L30
	jmp .L26
	.align 4
.L32:
	pushl PRINTstream
	call file_column
	incl %eax
	movl line_length,%esi
	subl %eax,%esi
	movl %esi,-4(%ebp)
	movl $1,-28(%ebp)
	movl $0,-32(%ebp)
	movl $1,%ecx
	addl $4,%esp
	movl printStructBufp,%ebx
	movl %ebx,-20(%ebp)
	movl %ebx,-12(%ebp)
	movl -28(%ebp),%edi
	cmpl 776(%ebx),%edi
	jge .L53
	.align 4
.L65:
	movl -4(%ebp),%esi
	cmpl %esi,-32(%ebp)
	jge .L53
	movl -28(%ebp),%eax
	movl -12(%ebp),%edi
	addl 768(%edi),%eax
	movl %eax,%edx
	jns .L57
	leal 127(%eax),%edx
.L57:
	andl $-128,%edx
	subl %edx,%eax
	movl -12(%ebp),%esi
	movswl (%esi,%eax,2),%edx
	cmpl $256,%edx
	jne .L58
	incl %ecx
	jmp .L54
	.align 4
.L58:
	cmpl $257,%edx
	jne .L60
	decl %ecx
	jmp .L54
	.align 4
.L60:
	leal -259(%edx),%eax
	cmpl $2,%eax
	jbe .L117
	cmpl $255,%edx
	jg .L54
.L117:
	incl -32(%ebp)
.L54:
	incl -28(%ebp)
	testl %ecx,%ecx
	jle .L53
	movl -20(%ebp),%edi
	movl %edi,-12(%ebp)
	movl -28(%ebp),%esi
	cmpl 776(%edi),%esi
	jl .L65
.L53:
	testl %ecx,%ecx
	je .L67
	movl -28(%ebp),%esi
	movl -20(%ebp),%edi
	cmpl 776(%edi),%esi
	jne .L68
	cmpl $0,8(%ebp)
	je .L26
.L68:
	movl 768(%ebx),%ecx
	leal 1(%ecx),%edx
	movl %edx,%eax
	testl %edx,%edx
	jge .L69
	leal 128(%ecx),%eax
.L69:
	andb $128,%al
	subl %eax,%edx
	movl %edx,768(%ebx)
	movl printStructBufp,%eax
	decl 776(%eax)
	movl %eax,%edx
	movl 780(%edx),%eax
	leal 1(%eax),%edi
	movl %edi,780(%edx)
	movl %edi,%eax
	cmpl $254,%eax
	jle .L70
	pushl $0
	pushl $.LC1
	call FEerror
	addl $8,%esp
.L70:
	pushl PRINTstream
	call file_column
	movl %eax,%ecx
	movl printStructBufp,%eax
	movl 780(%eax),%esi
	leal 0(,%esi,2),%edx
	movw %cx,256(%edx,%eax)
	incl 780(%eax)
	movl 780(%eax),%ecx
	addl $256,%eax
	movw -2(%eax,%ecx,2),%dx
	movw %dx,(%eax,%ecx,2)
	addl $4,%esp
	jmp .L118
	.align 4
.L115:
	movl -28(%ebp),%edi
	movl %edi,-8(%ebp)
	jmp .L73
	.align 4
.L39:
	movl 780(%ebx),%eax
	cmpl %eax,784(%ebx)
	jg .L47
	pushl PRINTstream
	call file_column
	incl %eax
	movl line_length,%esi
	subl %eax,%esi
	movl %esi,-4(%ebp)
	movl $0,-8(%ebp)
	movl $1,-28(%ebp)
	movl $0,-32(%ebp)
	movl $1,%ecx
	addl $4,%esp
	movl printStructBufp,%ebx
	movl %ebx,-24(%ebp)
	movl %ebx,-16(%ebp)
	movl -28(%ebp),%edi
	cmpl 776(%ebx),%edi
	jge .L73
	.align 4
.L96:
	movl -4(%ebp),%esi
	cmpl %esi,-32(%ebp)
	jge .L73
	movl -28(%ebp),%eax
	movl -16(%ebp),%edi
	addl 768(%edi),%eax
	movl %eax,%edx
	jns .L77
	leal 127(%eax),%edx
.L77:
	andl $-128,%edx
	subl %edx,%eax
	movl -16(%ebp),%esi
	movswl (%esi,%eax,2),%edx
	cmpl $256,%edx
	jne .L78
	incl %ecx
	jmp .L74
	.align 4
.L78:
	cmpl $257,%edx
	jne .L80
	decl %ecx
	jz .L67
	jmp .L74
	.align 4
.L80:
	cmpl $258,%edx
	jne .L83
	cmpl $1,%ecx
	je .L73
	jmp .L74
	.align 4
.L83:
	cmpl $259,%edx
	jne .L86
	cmpl $1,%ecx
	jne .L119
	movl -28(%ebp),%edi
	movl %edi,-8(%ebp)
	jmp .L119
	.align 4
.L86:
	cmpl $260,%edx
	jne .L89
	cmpl $1,%ecx
	je .L73
	jmp .L119
	.align 4
.L89:
	cmpl $261,%edx
	jne .L92
	cmpl $1,%ecx
	je .L115
	jmp .L119
	.align 4
.L92:
	cmpl $255,%edx
	jg .L74
.L119:
	incl -32(%ebp)
.L74:
	incl -28(%ebp)
	movl -24(%ebp),%esi
	movl %esi,-16(%ebp)
	movl -28(%ebp),%edi
	cmpl 776(%esi),%edi
	jl .L96
.L73:
	movl -28(%ebp),%edi
	movl -24(%ebp),%esi
	cmpl 776(%esi),%edi
	jne .L97
	cmpl $0,8(%ebp)
	je .L26
.L97:
	cmpl $0,-8(%ebp)
	je .L47
	movl -8(%ebp),%esi
	movl %esi,-28(%ebp)
	jmp .L67
	.align 4
.L114:
	movl 780(%ecx),%edx
	leal 256(%ecx),%eax
	movw -2(%eax,%edx,2),%di
	addl $2,%edi
	movw %di,(%eax,%edx,2)
	movl printStructBufp,%ebx
.L47:
	movl 768(%ebx),%ecx
	leal 1(%ecx),%edx
	movl %edx,%eax
	testl %edx,%edx
	jge .L99
	leal 128(%ecx),%eax
.L99:
	andb $128,%al
	subl %eax,%edx
	movl %edx,768(%ebx)
	movl printStructBufp,%eax
	decl 776(%eax)
	pushl PRINTstream
	pushl $10
	call writec_stream
	movl printStructBufp,%edx
	movl 780(%edx),%esi
	leal 0(,%esi,2),%eax
	movswl 256(%eax,%edx),%edx
	movl %edx,-28(%ebp)
	addl $8,%esp
	testl %edx,%edx
	jle .L101
	.align 4
.L103:
	pushl PRINTstream
	pushl $32
	call writec_stream
	addl $8,%esp
	decl -28(%ebp)
	cmpl $0,-28(%ebp)
	jg .L103
.L101:
	movl printStructBufp,%edx
	movl 780(%edx),%eax
	movl %eax,784(%edx)
	movl %edx,%ebx
	jmp .L27
	.align 4
.L67:
	movl $0,-32(%ebp)
	movl -28(%ebp),%edi
	cmpl %edi,-32(%ebp)
	jge .L27
	.align 4
.L108:
	movl printStructBufp,%ebx
	movl 768(%ebx),%esi
	leal 0(,%esi,2),%eax
	movswl (%eax,%ebx),%edx
	leal -259(%edx),%eax
	cmpl $2,%eax
	ja .L109
	pushl PRINTstream
	pushl $32
	jmp .L120
	.align 4
.L109:
	cmpl $255,%edx
	jg .L110
	pushl PRINTstream
	pushl %edx
.L120:
	call writec_stream
	addl $8,%esp
	movl printStructBufp,%ebx
.L110:
	movl 768(%ebx),%ecx
	leal 1(%ecx),%edx
	movl %edx,%eax
	testl %edx,%edx
	jge .L112
	leal 128(%ecx),%eax
.L112:
	andb $128,%al
	subl %eax,%edx
	movl %edx,768(%ebx)
	movl printStructBufp,%eax
	decl 776(%eax)
	incl -32(%ebp)
	movl -28(%ebp),%edi
	cmpl %edi,-32(%ebp)
	jl .L108
	movl %eax,%ebx
	jmp .L27
	.align 4
.L26:
	leal -44(%ebp),%esp
	popl %ebx
	popl %esi
	popl %edi
	leave
	ret
.Lfe1:
	.size	 flush_queue,.Lfe1-flush_queue
.data
.LC2:
	.string	"#b"
.LC3:
	.string	"#o"
.LC4:
	.string	"#x"
.text
	.align 4
.globl write_base
	.type	 write_base,@function
write_base:
	pushl %ebp
	movl %esp,%ebp
	subl $12,%esp
	pushl %ebx
	movl PRINTbase,%edx
	cmpl $2,%edx
	jne .L143
	movl $.LC2,%ebx
	cmpb $0,.LC2
	je .L149
	.align 4
.L146:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L146
	jmp .L149
	.align 4
.L143:
	cmpl $8,%edx
	jne .L150
	movl $.LC3,%ebx
	cmpb $0,.LC3
	je .L149
	.align 4
.L153:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L153
	jmp .L149
	.align 4
.L150:
	cmpl $16,%edx
	jne .L157
	movl $.LC4,%ebx
	cmpb $0,.LC4
	je .L149
	.align 4
.L160:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L160
	jmp .L149
	.align 4
.L157:
	cmpl $9,%edx
	jle .L164
	pushl $35
	movl write_ch_fun,%eax
	call *%eax
	movl PRINTbase,%eax
	movl %eax,-12(%ebp)
	movl $1717986919,%ebx
	imull %ebx
	sarl $2,%edx
	sarl $31,-12(%ebp)
	subl -12(%ebp),%edx
	addl $48,%edx
	pushl %edx
	movl write_ch_fun,%eax
	call *%eax
	movl PRINTbase,%eax
	movl %eax,-4(%ebp)
	imull %ebx
	sarl $2,%edx
	movl -4(%ebp),%eax
	movl %eax,-12(%ebp)
	sarl $31,-12(%ebp)
	subl -12(%ebp),%edx
	leal (%edx,%edx,4),%edx
	addl %edx,%edx
	subl %edx,%eax
	jmp .L166
	.align 4
.L164:
	pushl $35
	movl write_ch_fun,%eax
	call *%eax
	movl PRINTbase,%eax
.L166:
	addl $48,%eax
	pushl %eax
	movl write_ch_fun,%eax
	call *%eax
	pushl $114
	movl write_ch_fun,%eax
	call *%eax
.L149:
	movl -16(%ebp),%ebx
	leave
	ret
.Lfe2:
	.size	 write_base,.Lfe2-write_base
.data
.LC5:
	.string	"%e"
.LC6:
	.string	"Can't print a non-number."
.LC7:
	.string	"%*.*e"
.LC8:
	.string	"%*.*e"
.text
	.align 4
.globl edit_double
	.type	 edit_double,@function
edit_double:
	pushl %ebp
	movl %esp,%ebp
	subl $32,%esp
	pushl %edi
	pushl %esi
	pushl %ebx
	movl 8(%ebp),%esi
	fldl 12(%ebp)
	movl 20(%ebp),%ebx
	movl 24(%ebp),%edi
	movl 16(%ebp),%eax
	andl $2146435072,%eax
	cmpl $2146435072,%eax
	jne .L168
	movl sSAprint_nansA,%eax
	cmpl $Cnil_body,4(%eax)
	je .L205
	subl $8,%esp
	fstpl (%esp)
	pushl $.LC5
	pushl %edi
	call sprintf
	movl $2,(%ebx)
	jmp .L167
.L205:
	fstp %st(0)
	pushl $0
	pushl $.LC6
	call FEerror
	addl $8,%esp
	jmp .L171
	.align 4
.L168:
	subl $8,%esp
	fstpl (%esp)
	pushl $16
	pushl $24
	pushl $.LC7
	leal -28(%ebp),%eax
	pushl %eax
	call sprintf
	addl $24,%esp
.L171:
	cmpb $101,-9(%ebp)
	je .L172
	pushl 16(%ebp)
	pushl 12(%ebp)
	pushl $16
	pushl $23
	pushl $.LC8
	leal -28(%ebp),%eax
	pushl %eax
	call sprintf
	movsbl -7(%ebp),%eax
	leal -240(%eax,%eax,4),%eax
	movsbl -6(%ebp),%edx
	leal -48(%edx,%eax,2),%eax
	jmp .L204
	.align 4
.L203:
	movb -29(%ebp),%cl
	incb %cl
	movb %cl,(%edx,%ebx)
	jmp .L179
	.align 4
.L172:
	movsbl -7(%ebp),%eax
	leal -240(%eax,%eax,4),%eax
	leal (%eax,%eax,4),%eax
	movsbl -6(%ebp),%edx
	leal -240(%edx,%edx,4),%edx
	addl %edx,%edx
	leal -48(%edx,%eax,4),%eax
	movsbl -5(%ebp),%edx
	addl %edx,%eax
.L204:
	movl 28(%ebp),%ecx
	movl %eax,(%ecx)
	movl $1,(%ebx)
	cmpb $45,-28(%ebp)
	jne .L174
	movl $-1,(%ebx)
.L174:
	cmpb $45,-8(%ebp)
	jne .L175
	movl 28(%ebp),%ecx
	negl (%ecx)
.L175:
	movb -27(%ebp),%al
	movb %al,-26(%ebp)
	leal -26(%ebp),%ebx
	cmpl $16,%esi
	jg .L176
	cmpb $52,(%esi,%ebx)
	jle .L177
	leal -1(%esi),%edx
	testl %edx,%edx
	jl .L202
	leal (%ebx,%edx),%eax
	.align 4
.L181:
	movb (%eax),%cl
	movb %cl,-29(%ebp)
	cmpb $57,%cl
	jne .L203
	movb $48,(%eax)
	decl %eax
	decl %edx
	jns .L181
.L179:
	testl %edx,%edx
	jge .L177
.L202:
	decl %ebx
	movb $49,(%ebx)
	movl 28(%ebp),%ecx
	incl (%ecx)
.L177:
	xorl %edx,%edx
	cmpl %esi,%edx
	jge .L191
	.align 4
.L189:
	movb (%edx,%ebx),%al
	movb %al,(%edx,%edi)
	incl %edx
	cmpl %esi,%edx
	jl .L189
	jmp .L191
	.align 4
.L176:
	xorl %edx,%edx
	.align 4
.L195:
	movb (%edx,%ebx),%al
	movb %al,(%edx,%edi)
	incl %edx
	cmpl $16,%edx
	jle .L195
	cmpl %esi,%edx
	jge .L191
	.align 4
.L200:
	movb $48,(%edx,%edi)
	incl %edx
	cmpl %esi,%edx
	jl .L200
.L191:
	movb $0,(%esi,%edi)
.L167:
	leal -44(%ebp),%esp
	popl %ebx
	popl %esi
	popl %edi
	leave
	ret
.Lfe3:
	.size	 edit_double,.Lfe3-edit_double
.data
.LC9:
	.string	"#<"
.text
	.align 4
.globl write_double
	.type	 write_double,@function
write_double:
	pushl %ebp
	movl %esp,%ebp
	subl $32,%esp
	pushl %edi
	pushl %esi
	pushl %ebx
	movl $17,%esi
	cmpl $0,20(%ebp)
	je .L207
	movl $7,%esi
.L207:
	leal -28(%ebp),%eax
	pushl %eax
	leal -24(%ebp),%edi
	pushl %edi
	leal -32(%ebp),%eax
	pushl %eax
	pushl 12(%ebp)
	pushl 8(%ebp)
	pushl %esi
	call edit_double
	movl -32(%ebp),%eax
	addl $24,%esp
	cmpl $2,%eax
	jne .L208
	movl $.LC9,%ebx
	cmpb $0,.LC9
	je .L213
	.align 4
.L211:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L211
.L213:
	movl %edi,%ebx
	cmpb $0,-24(%ebp)
	je .L218
	.align 4
.L216:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L216
.L218:
	pushl $62
	jmp .L277
	.align 4
.L208:
	testl %eax,%eax
	jge .L219
	pushl $45
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
.L219:
	movl -28(%ebp),%edx
	leal 3(%edx),%eax
	cmpl $9,%eax
	ja .L220
	testl %edx,%edx
	jge .L221
	pushl $48
	movl write_ch_fun,%eax
	call *%eax
	pushl $46
	movl write_ch_fun,%eax
	call *%eax
	movl -28(%ebp),%eax
	notl %eax
	movl %eax,-28(%ebp)
	xorl %ebx,%ebx
	addl $8,%esp
	cmpl %eax,%ebx
	jge .L223
	.align 4
.L225:
	pushl $48
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	incl %ebx
	movl -28(%ebp),%eax
	cmpl %eax,%ebx
	jl .L225
.L223:
	testl %esi,%esi
	jle .L228
	movl %edi,%ebx
	.align 4
.L230:
	leal -1(%esi),%edx
	cmpb $48,(%edx,%ebx)
	jne .L228
	movl %edx,%esi
	testl %esi,%esi
	jg .L230
.L228:
	testl %eax,%eax
	jne .L233
	testl %esi,%esi
	jne .L233
	movl $1,%esi
.L233:
	xorl %ebx,%ebx
	cmpl %esi,%ebx
	jge .L239
	.align 4
.L237:
	movsbl (%ebx,%edi),%eax
	pushl %eax
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	incl %ebx
	cmpl %esi,%ebx
	jl .L237
	jmp .L239
	.align 4
.L221:
	leal 1(%edx),%ecx
	movl %ecx,-28(%ebp)
	xorl %ebx,%ebx
	movl %ecx,%eax
	cmpl %eax,%ebx
	jge .L241
	.align 4
.L243:
	cmpl %esi,%ebx
	jge .L244
	movsbl (%ebx,%edi),%eax
	pushl %eax
	jmp .L278
	.align 4
.L244:
	pushl $48
.L278:
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	incl %ebx
	cmpl -28(%ebp),%ebx
	jl .L243
.L241:
	pushl $46
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpl %esi,%ebx
	jge .L247
	movsbl (%ebx,%edi),%eax
	pushl %eax
	jmp .L279
	.align 4
.L247:
	pushl $48
.L279:
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	incl %ebx
	cmpl %ebx,%esi
	jle .L280
	movl %edi,%edx
	.align 4
.L252:
	leal -1(%esi),%eax
	cmpb $48,(%eax,%edx)
	jne .L280
	movl %eax,%esi
	cmpl %ebx,%esi
	jg .L252
	jmp .L280
	.align 4
.L258:
	movsbl (%ebx,%edi),%eax
	pushl %eax
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	incl %ebx
.L280:
	cmpl %esi,%ebx
	jl .L258
.L239:
	movl $0,-28(%ebp)
	jmp .L260
	.align 4
.L220:
	movsbl -24(%ebp),%eax
	pushl %eax
	movl write_ch_fun,%eax
	call *%eax
	pushl $46
	movl write_ch_fun,%eax
	call *%eax
	movsbl -23(%ebp),%eax
	pushl %eax
	movl write_ch_fun,%eax
	call *%eax
	addl $12,%esp
	cmpl $2,%esi
	jle .L262
	movl %edi,%edx
	.align 4
.L264:
	leal -1(%esi),%eax
	cmpb $48,(%eax,%edx)
	jne .L262
	movl %eax,%esi
	cmpl $2,%esi
	jg .L264
.L262:
	movl $2,%ebx
	cmpl %esi,%ebx
	jge .L260
	.align 4
.L270:
	movsbl (%ebx,%edi),%eax
	pushl %eax
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	incl %ebx
	cmpl %esi,%ebx
	jl .L270
.L260:
	cmpl $0,-28(%ebp)
	jne .L272
	cmpl $0,16(%ebp)
	je .L206
.L272:
	cmpl $0,16(%ebp)
	jne .L273
	movl $69,16(%ebp)
.L273:
	movl 16(%ebp),%ecx
	pushl %ecx
	movl write_ch_fun,%eax
	call *%eax
	movl -28(%ebp),%eax
	addl $4,%esp
	testl %eax,%eax
	jge .L274
	pushl $45
	movl write_ch_fun,%eax
	call *%eax
	movl -28(%ebp),%eax
	negl %eax
	movl %eax,-28(%ebp)
	addl $4,%esp
.L274:
	testl %eax,%eax
	jne .L275
	pushl $48
.L277:
	movl write_ch_fun,%eax
	call *%eax
	jmp .L206
	.align 4
.L275:
	pushl %eax
	call write_decimal1
.L206:
	leal -44(%ebp),%esp
	popl %ebx
	popl %esi
	popl %edi
	leave
	ret
.Lfe4:
	.size	 write_double,.Lfe4-write_double
	.align 4
.globl call_structure_print_function
	.type	 call_structure_print_function,@function
call_structure_print_function:
	pushl %ebp
	movl %esp,%ebp
	subl $588,%esp
	pushl %edi
	pushl %esi
	pushl %ebx
	movl write_ch_fun,%edi
	movl %edi,-520(%ebp)
	movl PRINTvs_top,%edi
	movl %edi,-524(%ebp)
	movl PRINTvs_limit,%edi
	movl %edi,-528(%ebp)
	movl PRINTescape,%edi
	movl %edi,-532(%ebp)
	movl PRINTradix,%edi
	movl %edi,-536(%ebp)
	movl PRINTbase,%edi
	movl %edi,-540(%ebp)
	movl PRINTcircle,%edi
	movl %edi,-544(%ebp)
	movl PRINTpretty,%edi
	movl %edi,-548(%ebp)
	movl PRINTlevel,%edi
	movl %edi,-552(%ebp)
	movl PRINTlength,%edi
	movl %edi,-556(%ebp)
	movl PRINTgensym,%edi
	movl %edi,-560(%ebp)
	movl PRINTarray,%edi
	movl %edi,-564(%ebp)
.L282:
	cmpl $0,interrupt_flag
	je .L283
	movl $0,interrupt_flag
	pushl $0
	call alarm
	pushl $1
	call terminal_interrupt
	addl $8,%esp
	jmp .L282
	.align 4
.L283:
	cmpl $0,PRINTpretty
	je .L284
	pushl $1
	call flush_queue
	addl $4,%esp
.L284:
	movl printStructBufp,%ecx
	movl 768(%ecx),%edi
	movl %edi,-568(%ebp)
	movl 772(%ecx),%edi
	movl %edi,-572(%ebp)
	movl 776(%ecx),%edi
	movl %edi,-576(%ebp)
	movl 780(%ecx),%edi
	movl %edi,-580(%ebp)
	movl 784(%ecx),%edi
	movl %edi,-584(%ebp)
	cmpl $0,PRINTpretty
	je .L285
	xorl %ebx,%ebx
	cmpl -580(%ebp),%ebx
	jg .L285
	leal -512(%ebp),%esi
	.align 4
.L289:
	leal 0(,%ebx,2),%edx
	movw 256(%edx,%ecx),%ax
	movw %ax,(%edx,%esi)
	incl %ebx
	cmpl 780(%ecx),%ebx
	jle .L289
.L285:
	movl vs_top,%edx
	movl PRINTstream,%eax
	movl %eax,(%edx)
	addl $4,vs_top
	movl vs_top,%edx
	movl PRINTcase,%eax
	movl %eax,(%edx)
	addl $4,vs_top
	pushl 12(%ebp)
	call make_fixnum
	movl %eax,%edx
	movl vs_top,%eax
	movl %edx,(%eax)
	addl $4,vs_top
	movl bds_top,%edi
	movl %edi,-516(%ebp)
	addl $4,%esp
	movl %edi,%edx
	addl $8,%edx
	movl sLAprint_escapeA,%eax
	movl %eax,8(%edi)
	movl 4(%eax),%eax
	movl %eax,4(%edx)
	movl sLAprint_escapeA,%ecx
	cmpl $0,PRINTescape
	je .L294
	movl $Ct_body,%eax
	jmp .L295
	.align 4
.L294:
	movl $Cnil_body,%eax
.L295:
	movl %eax,4(%ecx)
	movl %edx,bds_top
	leal 8(%edx),%esi
	movl sLAprint_radixA,%eax
	movl %eax,8(%edx)
	movl 4(%eax),%eax
	movl %eax,4(%esi)
	movl sLAprint_radixA,%edx
	cmpl $0,PRINTradix
	je .L301
	movl $Ct_body,%eax
	jmp .L302
	.align 4
.L301:
	movl $Cnil_body,%eax
.L302:
	movl %eax,4(%edx)
	movl %esi,bds_top
	leal 8(%esi),%ebx
	movl sLAprint_baseA,%eax
	movl %eax,8(%esi)
	movl 4(%eax),%eax
	movl %eax,4(%ebx)
	pushl PRINTbase
	call make_fixnum
	movl %eax,%edx
	movl sLAprint_baseA,%eax
	movl %edx,4(%eax)
	movl %ebx,bds_top
	addl $4,%esp
	leal 16(%esi),%edx
	movl sLAprint_circleA,%eax
	movl %eax,8(%ebx)
	movl 4(%eax),%eax
	movl %eax,4(%edx)
	movl sLAprint_circleA,%ecx
	cmpl $0,PRINTcircle
	je .L313
	movl $Ct_body,%eax
	jmp .L314
	.align 4
.L313:
	movl $Cnil_body,%eax
.L314:
	movl %eax,4(%ecx)
	movl %edx,bds_top
	leal 8(%edx),%ecx
	movl sLAprint_prettyA,%eax
	movl %eax,8(%edx)
	movl 4(%eax),%eax
	movl %eax,4(%ecx)
	movl sLAprint_prettyA,%edx
	cmpl $0,PRINTpretty
	je .L320
	movl $Ct_body,%eax
	jmp .L321
	.align 4
.L320:
	movl $Cnil_body,%eax
.L321:
	movl %eax,4(%edx)
	movl %ecx,bds_top
	leal 8(%ecx),%ebx
	movl sLAprint_levelA,%eax
	movl %eax,8(%ecx)
	movl 4(%eax),%eax
	movl %eax,4(%ebx)
	movl sLAprint_levelA,%esi
	movl PRINTlevel,%eax
	testl %eax,%eax
	jl .L327
	pushl %eax
	call make_fixnum
	addl $4,%esp
	jmp .L328
	.align 4
.L327:
	movl $Cnil_body,%eax
.L328:
	movl %eax,4(%esi)
	movl %ebx,bds_top
	leal 8(%ebx),%esi
	movl sLAprint_lengthA,%eax
	movl %eax,8(%ebx)
	movl 4(%eax),%eax
	movl %eax,4(%esi)
	movl sLAprint_lengthA,%ebx
	movl PRINTlength,%eax
	testl %eax,%eax
	jl .L334
	pushl %eax
	call make_fixnum
	addl $4,%esp
	jmp .L335
	.align 4
.L334:
	movl $Cnil_body,%eax
.L335:
	movl %eax,4(%ebx)
	movl %esi,bds_top
	leal 8(%esi),%edx
	movl sLAprint_gensymA,%eax
	movl %eax,8(%esi)
	movl 4(%eax),%eax
	movl %eax,4(%edx)
	movl sLAprint_gensymA,%ecx
	cmpl $0,PRINTgensym
	je .L341
	movl $Ct_body,%eax
	jmp .L342
	.align 4
.L341:
	movl $Cnil_body,%eax
.L342:
	movl %eax,4(%ecx)
	movl %edx,bds_top
	leal 8(%edx),%ebx
	movl sLAprint_arrayA,%eax
	movl %eax,8(%edx)
	movl 4(%eax),%eax
	movl %eax,4(%ebx)
	movl sLAprint_arrayA,%edx
	cmpl $0,PRINTarray
	je .L348
	movl $Ct_body,%eax
	jmp .L349
	.align 4
.L348:
	movl $Cnil_body,%eax
.L349:
	movl %eax,4(%edx)
	movl %ebx,bds_top
	leal 8(%ebx),%ecx
	movl sLAprint_caseA,%eax
	movl %eax,8(%ebx)
	movl 4(%eax),%eax
	movl %eax,4(%ecx)
	movl sLAprint_caseA,%edx
	movl PRINTcase,%eax
	movl %eax,4(%edx)
	movl %ecx,bds_top
	movl frs_top,%ebx
	leal 176(%ebx),%esi
	cmpl frs_limit,%esi
	jb .L360
	call frs_overflow
	.align 4
.L360:
	movl lex_env,%eax
	movl %eax,332(%ebx)
	movl bds_top,%eax
	movl %eax,336(%ebx)
	movb $2,340(%ebx)
	movb in_signal_handler,%al
	movb %al,341(%ebx)
	movl $Cnil_body,344(%ebx)
	movl ihs_top,%eax
	movl %eax,348(%ebx)
	movl %esi,frs_top
	pushl $0
	pushl %esi
	call __sigsetjmp
	addl $8,%esp
	cmpl $0,nlj_active
	je .L363
	movl $1,-588(%ebp)
	jmp .L364
	.align 4
.L363:
	movl vs_top,%eax
	pushl -4(%eax)
	pushl PRINTstream
	movl 8(%ebp),%edi
	pushl %edi
	movl 4(%edi),%eax
	movl 8(%eax),%eax
	pushl 24(%eax)
	call ifuncall3
	addl $-4,vs_top
	movl $0,-588(%ebp)
	addl $16,%esp
.L364:
	addl $-176,frs_top
	movl -516(%ebp),%edi
	pushl %edi
	call bds_unwind
	addl $4,%esp
	cmpl $0,PRINTpretty
	je .L365
	xorl %ebx,%ebx
	cmpl -580(%ebp),%ebx
	jg .L365
	leal -512(%ebp),%esi
	.align 4
.L369:
	leal 0(,%ebx,2),%eax
	movl printStructBufp,%ecx
	addl $256,%ecx
	movw (%eax,%esi),%dx
	movw %dx,(%eax,%ecx)
	incl %ebx
	cmpl -580(%ebp),%ebx
	jle .L369
.L365:
	movl printStructBufp,%eax
	movl -584(%ebp),%edi
	movl %edi,784(%eax)
	movl -580(%ebp),%edi
	movl %edi,780(%eax)
	movl -576(%ebp),%edi
	movl %edi,776(%eax)
	movl -572(%ebp),%edi
	movl %edi,772(%eax)
	movl -568(%ebp),%edi
	movl %edi,768(%eax)
	movl vs_top,%eax
	leal -4(%eax),%edi
	movl %edi,vs_top
	movl -4(%eax),%edx
	movl %edx,PRINTcase
	leal -8(%eax),%edi
	movl %edi,vs_top
	movl -8(%eax),%eax
	movl %eax,PRINTstream
	movl -564(%ebp),%edi
	movl %edi,PRINTarray
	movl -560(%ebp),%edi
	movl %edi,PRINTgensym
	movl -556(%ebp),%edi
	movl %edi,PRINTlength
	movl -552(%ebp),%edi
	movl %edi,PRINTlevel
	movl -548(%ebp),%edi
	movl %edi,PRINTpretty
	movl -544(%ebp),%edi
	movl %edi,PRINTcircle
	movl -540(%ebp),%edi
	movl %edi,PRINTbase
	movl -536(%ebp),%edi
	movl %edi,PRINTradix
	movl -532(%ebp),%edi
	movl %edi,PRINTescape
	movl -528(%ebp),%edi
	movl %edi,PRINTvs_limit
	movl -524(%ebp),%edi
	movl %edi,PRINTvs_top
	movl -520(%ebp),%edi
	movl %edi,write_ch_fun
	cmpl $0,-588(%ebp)
	je .L371
	movl $0,nlj_active
	pushl nlj_tag
	pushl nlj_fr
	call unwind
.L371:
	leal -600(%ebp),%esp
	popl %ebx
	popl %esi
	popl %edi
	leave
	ret
.Lfe5:
	.size	 call_structure_print_function,.Lfe5-call_structure_print_function
.data
.LC10:
	.string	"#<OBJNULL>"
.LC11:
	.string	"#<FREE OBJECT "
.LC12:
	.string	">"
.LC13:
	.string	"#C("
.LC14:
	.string	"#\\"
.LC15:
	.string	"Return"
.LC16:
	.string	"Space"
.LC17:
	.string	"Rubout"
.LC18:
	.string	"Page"
.LC19:
	.string	"Tab"
.LC20:
	.string	"Backspace"
.LC21:
	.string	"Newline"
.LC22:
	.string	"#:"
.LC23:
	.string	"can't print symbol"
.LC24:
	.string	"::"
	.align 32
.LC25:
	.string	"Pathological symbol --- cannot print."
.LC26:
	.string	"#<array "
.LC27:
	.string	">"
.LC28:
	.string	"...)"
.LC29:
	.string	"#<vector "
.LC30:
	.string	">"
.LC31:
	.string	"...)"
.LC32:
	.string	"..."
.LC33:
	.string	"#<bit-vector "
.LC34:
	.string	">"
.LC35:
	.string	"#*"
.LC36:
	.string	"#."
.LC37:
	.string	"..."
.LC38:
	.string	". "
.LC39:
	.string	" . #"
.LC40:
	.string	". "
.LC41:
	.string	"..."
.LC42:
	.string	"()"
.LC43:
	.string	". "
.LC44:
	.string	"#<"
.LC45:
	.string	" package>"
.LC46:
	.string	"#<hash-table "
.LC47:
	.string	">"
.LC48:
	.string	"#<input stream "
.LC49:
	.string	"#<output stream "
.LC50:
	.string	"#<io stream "
.LC51:
	.string	"#<socket stream "
.LC52:
	.string	"#<probe stream "
.LC53:
	.string	"#<synonym stream to "
.LC54:
	.string	"#<broadcast stream "
.LC55:
	.string	">"
.LC56:
	.string	"#<concatenated stream "
.LC57:
	.string	">"
.LC58:
	.string	"#<two-way stream "
.LC59:
	.string	">"
.LC60:
	.string	"#<echo stream "
.LC61:
	.string	">"
.LC62:
	.string	"#<string-input stream from \""
.LC63:
	.string	"..."
.LC64:
	.string	"\">"
.LC65:
	.string	"#<use-define stream"
.LC66:
	.string	">"
.LC67:
	.string	"#<string-output stream "
.LC68:
	.string	">"
.LC69:
	.string	"illegal stream mode"
.LC70:
	.string	"#$"
.LC71:
	.string	"#S"
.LC72:
	.string	"#<readtable "
.LC73:
	.string	">"
.LC74:
	.string	"#<pathname "
.LC75:
	.string	">"
.LC76:
	.string	"#<compiled-function "
.LC77:
	.string	">"
.LC78:
	.string	"#<compiled-closure "
.LC79:
	.string	">"
.LC80:
	.string	"#<@"
.LC81:
	.string	"illegal type --- cannot print"
.text
	.align 4
.globl write_object
	.type	 write_object,@function
write_object:
	pushl %ebp
	movl %esp,%ebp
	subl $356,%esp
	pushl %edi
	pushl %esi
	pushl %ebx
	cmpl $0,8(%ebp)
	jne .L373
	movl $.LC10,%ebx
	cmpb $0,.LC10
	je .L372
	.align 4
.L376:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L376
	jmp .L372
	.align 4
.L373:
	movl 8(%ebp),%eax
	cmpb $-1,3(%eax)
	jne .L379
	movl $.LC11,%ebx
	cmpb $0,.LC11
	je .L384
	.align 4
.L382:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L382
.L384:
	movl $28,%ebx
	.align 4
.L387:
	movl 8(%ebp),%edx
	movl %ebx,%ecx
	sarl %cl,%edx
	andl $15,%edx
	cmpl $9,%edx
	jg .L388
	leal 48(%edx),%eax
	jmp .L1224
	.align 4
.L388:
	leal 87(%edx),%eax
.L1224:
	pushl %eax
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	addl $-4,%ebx
	jns .L387
	movl $.LC12,%ebx
	cmpb $0,.LC12
	je .L372
	.align 4
.L395:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L395
	jmp .L372
	.align 4
.L379:
	movl 8(%ebp),%eax
	movzbl (%eax),%edx
	cmpl $28,%edx
	ja .L1218
	jmp *.L1219(,%edx,4)
	.align 4
.section	.rodata
	.align 4
	.align 4
.L1219:
	.long .L787
	.long .L399
	.long .L416
	.long .L433
	.long .L436
	.long .L439
	.long .L443
	.long .L449
	.long .L508
	.long .L882
	.long .L893
	.long .L613
	.long .L687
	.long .L739
	.long .L753
	.long .L1095
	.long .L912
	.long .L1089
	.long .L1118
	.long .L1137
	.long .L1162
	.long .L1184
	.long .L1162
	.long .L1162
	.long .L1162
	.long .L1162
	.long .L1184
	.long .L1218
	.long .L1205
.text
	.align 4
.L399:
	cmpl $0,PRINTradix
	je .L400
	cmpl $10,PRINTbase
	je .L400
	call write_base
.L400:
	movl 8(%ebp),%ecx
	movl 4(%ecx),%edi
	testl %edi,%edi
	jne .L401
	pushl $48
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	jmp .L1265
	.align 4
.L401:
	testl %edi,%edi
	jge .L403
	pushl $45
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpl $-2147483648,%edi
	jne .L404
	pushl $ABS_MOST_NEGS
	call make_bignum
	movl %eax,8(%ebp)
	movl vs_top,%ecx
	movl %eax,(%ecx)
	addl $4,vs_top
	movl PRINTradix,%edi
	movl $0,PRINTradix
	movl 12(%ebp),%eax
	pushl %eax
	movl 8(%ebp),%ecx
	pushl %ecx
	call write_object
	movl %edi,PRINTradix
	addl $-4,vs_top
	addl $12,%esp
	testl %edi,%edi
	je .L372
	jmp .L1266
	.align 4
.L404:
	negl %edi
.L403:
	movl vs_top,%ebx
	testl %edi,%edi
	je .L1226
	.align 4
.L409:
	movl PRINTbase,%eax
	pushl %eax
	movl %edi,%eax
	cltd
	idivl PRINTbase
	pushl %edx
	call digit_weight
	movl %eax,%esi
	movl vs_top,%edx
	leal character_table1+1024(,%esi,8),%esi
	movl %esi,(%edx)
	addl $4,vs_top
	addl $8,%esp
	movl %edi,%eax
	cltd
	idivl PRINTbase
	movl %eax,%edi
	testl %edi,%edi
	jne .L409
	jmp .L1226
	.align 4
.L413:
	leal -4(%edx),%ecx
	movl %ecx,vs_top
	movl -4(%edx),%edx
	movzwl 4(%edx),%eax
	pushl %eax
	movl write_ch_fun,%ecx
	call *%ecx
	addl $4,%esp
.L1226:
	movl vs_top,%edx
	cmpl %ebx,%edx
	ja .L413
	jmp .L1265
	.align 4
.L416:
	cmpl $0,PRINTradix
	je .L417
	cmpl $10,PRINTbase
	je .L417
	call write_base
.L417:
	movl 8(%ebp),%eax
	movl 4(%eax),%eax
	movsbl 7(%eax),%edi
	testl %edi,%edi
	jne .L418
	pushl $48
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	jmp .L1265
	.align 4
.L418:
	testl %edi,%edi
	jge .L420
	pushl $45
	movl write_ch_fun,%ecx
	call *%ecx
	movl 8(%ebp),%eax
	pushl %eax
	call big_minus
	movl %eax,%ebx
	addl $8,%esp
	jmp .L421
	.align 4
.L420:
	movl 8(%ebp),%ecx
	pushl %ecx
	call copy_big
	movl %eax,%ebx
	addl $4,%esp
.L421:
	movl vs_top,%esi
	jmp .L422
	.align 4
.L424:
	movl vs_limit,%eax
	cmpl %eax,vs_top
	jb .L425
	call vs_overflow
	jmp .L422
	.align 4
.L425:
	movl PRINTbase,%eax
	pushl %eax
	pushl %ebx
	pushl %eax
	call div_int_big
	addl $8,%esp
	pushl %eax
	call digit_weight
	addl $8,%esp
	movl vs_top,%edx
	leal character_table1+1024(,%eax,8),%eax
	movl %eax,(%edx)
	addl $4,vs_top
.L422:
	pushl %ebx
	call big_zerop
	addl $4,%esp
	testl %eax,%eax
	je .L424
	jmp .L1227
	.align 4
.L430:
	leal -4(%edx),%eax
	movl %eax,vs_top
	movl -4(%edx),%edx
	movzwl 4(%edx),%ecx
	pushl %ecx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
.L1227:
	movl vs_top,%edx
	cmpl %esi,%edx
	ja .L430
.L1265:
	cmpl $0,PRINTradix
	je .L372
.L1266:
	cmpl $10,PRINTbase
	jne .L372
	pushl $46
	jmp .L1225
	.align 4
.L433:
	cmpl $0,PRINTradix
	je .L434
	call write_base
	movl $0,PRINTradix
	movl 12(%ebp),%ecx
	pushl %ecx
	movl 8(%ebp),%eax
	pushl 8(%eax)
	call write_object
	pushl $47
	movl write_ch_fun,%ecx
	call *%ecx
	movl 12(%ebp),%eax
	pushl %eax
	movl 8(%ebp),%ecx
	pushl 4(%ecx)
	call write_object
	movl $1,PRINTradix
	jmp .L372
	.align 4
.L434:
	movl 12(%ebp),%eax
	pushl %eax
	movl 8(%ebp),%ecx
	pushl 8(%ecx)
	call write_object
	pushl $47
	movl write_ch_fun,%eax
	call *%eax
	jmp .L793
	.align 4
.L436:
	pushl sLAread_default_float_formatA
	call symbol_value
	movl %eax,%edx
	addl $4,%esp
	cmpl sLshort_float,%edx
	jne .L437
	pushl $1
	pushl $0
	movl 8(%ebp),%ecx
	flds 4(%ecx)
	jmp .L1228
	.align 4
.L437:
	pushl $1
	pushl $83
	movl 8(%ebp),%eax
	flds 4(%eax)
.L1228:
	subl $8,%esp
	fstpl (%esp)
	call write_double
	jmp .L372
	.align 4
.L439:
	pushl sLAread_default_float_formatA
	call symbol_value
	movl %eax,%edx
	addl $4,%esp
	cmpl sLsingle_float,%edx
	je .L441
	cmpl sLlong_float,%edx
	je .L441
	cmpl sLdouble_float,%edx
	jne .L440
.L441:
	pushl $0
	pushl $0
	movl 8(%ebp),%ecx
	pushl 8(%ecx)
	pushl 4(%ecx)
	call write_double
	jmp .L372
	.align 4
.L440:
	pushl $0
	pushl $70
	movl 8(%ebp),%eax
	pushl 8(%eax)
	pushl 4(%eax)
	call write_double
	jmp .L372
	.align 4
.L443:
	movl $.LC13,%ebx
	cmpb $0,.LC13
	je .L448
	.align 4
.L446:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L446
.L448:
	movl 12(%ebp),%ecx
	pushl %ecx
	movl 8(%ebp),%eax
	pushl 4(%eax)
	call write_object
	pushl $32
	movl write_ch_fun,%ecx
	call *%ecx
	movl 12(%ebp),%eax
	pushl %eax
	movl 8(%ebp),%ecx
	pushl 8(%ecx)
	call write_object
	pushl $41
	jmp .L1225
	.align 4
.L449:
	cmpl $0,PRINTescape
	jne .L450
	movl 8(%ebp),%ecx
	movzwl 4(%ecx),%eax
	pushl %eax
	jmp .L1229
	.align 4
.L450:
	movl $.LC14,%ebx
	cmpb $0,.LC14
	je .L455
	.align 4
.L453:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L453
.L455:
	movl 8(%ebp),%eax
	movzwl 4(%eax),%edx
	cmpl $12,%edx
	je .L475
	jg .L505
	cmpl $9,%edx
	je .L481
	jg .L506
	cmpl $8,%edx
	je .L487
	jmp .L499
	.align 4
.L506:
	cmpl $10,%edx
	je .L493
	jmp .L499
	.align 4
.L505:
	cmpl $32,%edx
	je .L463
	jg .L507
	cmpl $13,%edx
	je .L457
	jmp .L499
	.align 4
.L507:
	cmpl $127,%edx
	je .L469
	jmp .L499
	.align 4
.L457:
	movl $.LC15,%ebx
	cmpb $0,.LC15
	je .L372
	.align 4
.L460:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L460
	jmp .L372
	.align 4
.L463:
	movl $.LC16,%ebx
	cmpb $0,.LC16
	je .L372
	.align 4
.L466:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L466
	jmp .L372
	.align 4
.L469:
	movl $.LC17,%ebx
	cmpb $0,.LC17
	je .L372
	.align 4
.L472:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L472
	jmp .L372
	.align 4
.L475:
	movl $.LC18,%ebx
	cmpb $0,.LC18
	je .L372
	.align 4
.L478:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L478
	jmp .L372
	.align 4
.L481:
	movl $.LC19,%ebx
	cmpb $0,.LC19
	je .L372
	.align 4
.L484:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L484
	jmp .L372
	.align 4
.L487:
	movl $.LC20,%ebx
	cmpb $0,.LC20
	je .L372
	.align 4
.L490:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L490
	jmp .L372
	.align 4
.L493:
	movl $.LC21,%ebx
	cmpb $0,.LC21
	je .L372
	.align 4
.L496:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L496
	jmp .L372
	.align 4
.L499:
	movl 8(%ebp),%ecx
	cmpb $0,4(%ecx)
	jge .L500
	pushl $92
	movl write_ch_fun,%eax
	call *%eax
	movl 8(%ebp),%ecx
	movzwl 4(%ecx),%edi
	movl %edi,%edx
	sarl $6,%edx
	andl $7,%edx
	addl $48,%edx
	pushl %edx
	movl write_ch_fun,%eax
	call *%eax
	movl %edi,%edx
	sarl $3,%edx
	andl $7,%edx
	addl $48,%edx
	pushl %edx
	movl write_ch_fun,%ecx
	call *%ecx
	andl $7,%edi
	addl $48,%edi
	pushl %edi
	jmp .L1225
	.align 4
.L500:
	movl 8(%ebp),%ecx
	cmpw $31,4(%ecx)
	ja .L502
	pushl $94
	movl write_ch_fun,%eax
	call *%eax
	movl 8(%ebp),%ecx
	movzwl 4(%ecx),%eax
	addl $64,%eax
	pushl %eax
	jmp .L1229
	.align 4
.L502:
	pushl %edx
	jmp .L1225
	.align 4
.L508:
	cmpl $0,PRINTescape
	jne .L509
	xorl %esi,%esi
	xorl %edi,%edi
	movl 8(%ebp),%eax
	cmpl 16(%eax),%edi
	jge .L372
	.align 4
.L513:
	movl 8(%ebp),%ecx
	movl 12(%ecx),%ecx
	movsbl (%edi,%ecx),%ebx
	testb %bl,%bl
	jl .L519
	movl __ctype_b,%eax
	movw (%eax,%ebx,2),%dx
	testb $1,%dh
	je .L514
	movl PRINTcase,%edx
	cmpl sKdowncase,%edx
	je .L516
	cmpl sKcapitalize,%edx
	jne .L517
	cmpl %esi,%edi
	je .L517
.L516:
	addl $32,%ebx
	jmp .L517
	.align 4
.L514:
	testb $2,%dh
	jne .L517
.L519:
	leal 1(%edi),%esi
.L517:
	pushl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	incl %edi
	movl 8(%ebp),%ecx
	cmpl 16(%ecx),%edi
	jl .L513
	jmp .L372
	.align 4
.L509:
	movl 8(%ebp),%eax
	movl 28(%eax),%edx
	cmpl $Cnil_body,%edx
	jne .L521
	cmpl $0,PRINTcircle
	je .L522
	movl PRINTvs_top,%esi
	movl PRINTvs_limit,%edx
	cmpl %edx,%esi
	jae .L522
	leal 4(%esi),%ebx
	.align 4
.L526:
	movl 8(%ebp),%ecx
	cmpl (%esi),%ecx
	jne .L525
	cmpl $Cnil_body,(%ebx)
	je .L528
.L1271:
	pushl $35
	movl write_ch_fun,%eax
	call *%eax
	movl %esi,%edx
	subl PRINTvs_top,%edx
	movl %edx,%eax
	shrl $31,%eax
	sarl $2,%edx
	addl %eax,%edx
	sarl $1,%edx
	addl $4,%esp
	testl %edx,%edx
	je .L1270
	jmp .L1103
	.align 4
.L528:
	pushl $35
	movl write_ch_fun,%eax
	call *%eax
	movl %esi,%eax
	subl PRINTvs_top,%eax
	movl %eax,%edx
	shrl $31,%edx
	sarl $2,%eax
	addl %eax,%edx
	sarl $1,%edx
	addl $4,%esp
	testl %edx,%edx
	jne .L532
	pushl $48
	movl write_ch_fun,%eax
	call *%eax
	jmp .L1231
	.align 4
.L532:
	pushl %edx
	call write_decimal1
.L1231:
	addl $4,%esp
	pushl $61
	movl write_ch_fun,%eax
	call *%eax
	movl $Ct_body,(%ebx)
	addl $4,%esp
	movl PRINTvs_limit,%edx
.L525:
	addl $8,%ebx
	addl $8,%esi
	cmpl %edx,%esi
	jb .L526
.L522:
	cmpl $0,PRINTgensym
	je .L541
	movl $.LC22,%ebx
	cmpb $0,.LC22
	je .L541
	.align 4
.L538:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L538
	jmp .L541
	.align 4
.L521:
	cmpl keyword_package,%edx
	je .L1232
	cmpl $0,PRINTpackage
	jne .L545
	call current_package
	movl %eax,%edx
	pushl %edx
	movl 8(%ebp),%eax
	pushl %eax
	call find_symbol
	movl %eax,%edx
	addl $8,%esp
	cmpl 8(%ebp),%edx
	jne .L545
	cmpl $0,intern_flag
	jne .L541
.L545:
	movl $0,-264(%ebp)
	xorl %edi,%edi
	movl 8(%ebp),%ecx
	movl 28(%ecx),%ecx
	movl %ecx,-308(%ebp)
	movl %ecx,-296(%ebp)
	movl %ecx,%edx
	movl 4(%ecx),%eax
	cmpl 16(%eax),%edi
	jge .L547
	movl standard_readtable,%eax
	movl 4(%eax),%eax
	movl %eax,-268(%ebp)
	movl __ctype_b,%esi
	.align 4
.L549:
	movl 4(%edx),%edx
	movl 12(%edx),%ecx
	movsbl (%edi,%ecx),%ebx
	movl %ebx,%edx
	movzbl %dl,%edx
	leal (%edx,%edx,2),%eax
	movl -268(%ebp),%ecx
	cmpl $5,(%ecx,%eax,4)
	jne .L551
	testb %bl,%bl
	jl .L552
	testb $2,1(%esi,%edx,2)
	jne .L551
.L552:
	cmpl $58,%ebx
	jne .L548
.L551:
	incl -264(%ebp)
.L548:
	incl %edi
	movl -296(%ebp),%edx
	movl 4(%edx),%eax
	cmpl 16(%eax),%edi
	jl .L549
.L547:
	cmpl $0,-264(%ebp)
	jle .L554
	pushl $124
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	movl 8(%ebp),%ecx
	movl 28(%ecx),%ecx
	movl %ecx,-308(%ebp)
.L554:
	xorl %esi,%esi
	xorl %edi,%edi
	movl -308(%ebp),%edx
	movl 4(%edx),%eax
	cmpl 16(%eax),%edi
	jge .L556
	.align 4
.L558:
	movl 4(%edx),%eax
	movl 12(%eax),%eax
	movsbl (%edi,%eax),%ebx
	cmpl $124,%ebx
	je .L560
	cmpl $92,%ebx
	jne .L559
.L560:
	pushl $92
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
.L559:
	cmpl $0,-264(%ebp)
	jne .L561
	testb %bl,%bl
	jl .L567
	movl __ctype_b,%eax
	movw (%eax,%ebx,2),%dx
	testb $1,%dh
	je .L562
	movl PRINTcase,%edx
	cmpl sKdowncase,%edx
	je .L564
	cmpl sKcapitalize,%edx
	jne .L561
	cmpl %esi,%edi
	je .L561
.L564:
	addl $32,%ebx
	jmp .L561
	.align 4
.L562:
	testb $2,%dh
	jne .L561
.L567:
	leal 1(%edi),%esi
.L561:
	pushl %ebx
	movl write_ch_fun,%ecx
	call *%ecx
	addl $4,%esp
	incl %edi
	movl 8(%ebp),%eax
	movl 28(%eax),%eax
	movl %eax,-308(%ebp)
	movl %eax,%edx
	movl 4(%eax),%ecx
	cmpl 16(%ecx),%edi
	jl .L558
.L556:
	cmpl $0,-264(%ebp)
	jle .L569
	pushl $124
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	movl 8(%ebp),%ecx
	movl 28(%ecx),%ecx
	movl %ecx,-308(%ebp)
.L569:
	movl -308(%ebp),%eax
	pushl %eax
	movl 8(%ebp),%ecx
	pushl %ecx
	call find_symbol
	movl %eax,%edx
	addl $8,%esp
	cmpl 8(%ebp),%edx
	je .L570
	pushl $.LC23
	call error
	addl $4,%esp
.L570:
	cmpl $0,PRINTpackage
	jne .L572
	movl intern_flag,%edx
	cmpl $1,%edx
	jne .L571
.L572:
	movl $.LC24,%ebx
	cmpb $0,.LC24
	je .L541
	.align 4
.L575:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L575
	jmp .L541
	.align 4
.L571:
	cmpl $2,%edx
	jne .L579
.L1232:
	pushl $58
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	jmp .L541
	.align 4
.L579:
	pushl $0
	pushl $.LC25
	call FEerror
	addl $8,%esp
.L541:
	pushl PRINTbase
	movl 8(%ebp),%eax
	pushl %eax
	call potential_number_p
	movl %eax,%edx
	addl $8,%esp
	testl %edx,%edx
	setne %cl
	movzbl %cl,%eax
	movl %eax,-264(%ebp)
	xorl %edi,%edi
	movl 8(%ebp),%ecx
	movl 16(%ecx),%ecx
	movl %ecx,-308(%ebp)
	movl %ecx,-300(%ebp)
	cmpl %ecx,%edi
	jge .L583
	movl 8(%ebp),%eax
	movl 12(%eax),%eax
	movl %eax,-272(%ebp)
	movl standard_readtable,%ecx
	movl 4(%ecx),%ecx
	movl %ecx,-276(%ebp)
	movl __ctype_b,%eax
	movl %eax,-280(%ebp)
	movl -308(%ebp),%esi
	.align 4
.L585:
	movl -272(%ebp),%ecx
	movsbl (%edi,%ecx),%ebx
	movl %ebx,%edx
	movzbl %dl,%edx
	leal (%edx,%edx,2),%eax
	movl -276(%ebp),%ecx
	cmpl $5,(%ecx,%eax,4)
	jne .L587
	testb %bl,%bl
	jl .L588
	movl -280(%ebp),%eax
	testb $2,1(%eax,%edx,2)
	jne .L587
.L588:
	cmpl $58,%ebx
	jne .L584
.L587:
	incl -264(%ebp)
.L584:
	incl %edi
	cmpl %esi,%edi
	jl .L585
.L583:
	xorl %edi,%edi
	cmpl -300(%ebp),%edi
	jge .L591
	movl 8(%ebp),%ecx
	movl 12(%ecx),%edx
	.align 4
.L593:
	cmpb $46,(%edi,%edx)
	jne .L595
	incl %edi
	cmpl -308(%ebp),%edi
	jl .L593
.L591:
	incl -264(%ebp)
.L595:
	cmpl $0,-264(%ebp)
	jle .L597
	pushl $124
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	movl 8(%ebp),%ecx
	movl 16(%ecx),%ecx
	movl %ecx,-308(%ebp)
.L597:
	xorl %esi,%esi
	xorl %edi,%edi
	cmpl -308(%ebp),%edi
	jge .L599
	.align 4
.L601:
	movl 8(%ebp),%eax
	movl 12(%eax),%eax
	movsbl (%edi,%eax),%ebx
	cmpl $124,%ebx
	je .L603
	cmpl $92,%ebx
	jne .L602
.L603:
	pushl $92
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
.L602:
	cmpl $0,-264(%ebp)
	jne .L604
	testb %bl,%bl
	jl .L610
	movl __ctype_b,%eax
	movw (%eax,%ebx,2),%dx
	testb $1,%dh
	je .L605
	movl PRINTcase,%edx
	cmpl sKdowncase,%edx
	je .L607
	cmpl sKcapitalize,%edx
	jne .L604
	cmpl %esi,%edi
	je .L604
.L607:
	addl $32,%ebx
	jmp .L604
	.align 4
.L605:
	testb $2,%dh
	jne .L604
.L610:
	leal 1(%edi),%esi
.L604:
	pushl %ebx
	movl write_ch_fun,%ecx
	call *%ecx
	addl $4,%esp
	incl %edi
	movl 8(%ebp),%eax
	cmpl 16(%eax),%edi
	jl .L601
.L599:
	cmpl $0,-264(%ebp)
	jle .L372
	pushl $124
	jmp .L1225
	.align 4
.L613:
	cmpl $0,PRINTarray
	jne .L614
	movl $.LC26,%ebx
	cmpb $0,.LC26
	je .L619
	.align 4
.L617:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L617
.L619:
	movl $28,%ebx
	.align 4
.L622:
	movl 8(%ebp),%edx
	movl %ebx,%ecx
	sarl %cl,%edx
	andl $15,%edx
	cmpl $9,%edx
	jg .L623
	leal 48(%edx),%eax
	jmp .L1233
	.align 4
.L623:
	leal 87(%edx),%eax
.L1233:
	pushl %eax
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	addl $-4,%ebx
	jns .L622
	movl $.LC27,%ebx
	cmpb $0,.LC27
	je .L372
	.align 4
.L630:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L630
	jmp .L372
	.align 4
.L614:
	cmpl $0,PRINTcircle
	je .L633
	movl PRINTvs_top,%esi
	movl PRINTvs_limit,%edx
	cmpl %edx,%esi
	jae .L633
	leal 4(%esi),%ebx
	.align 4
.L637:
	movl 8(%ebp),%eax
	cmpl (%esi),%eax
	jne .L636
	cmpl $Cnil_body,(%ebx)
	jne .L1271
	pushl $35
	movl write_ch_fun,%eax
	call *%eax
	movl %esi,%edx
	subl PRINTvs_top,%edx
	movl %edx,%eax
	shrl $31,%eax
	sarl $2,%edx
	addl %eax,%edx
	sarl $1,%edx
	addl $4,%esp
	testl %edx,%edx
	jne .L643
	pushl $48
	movl write_ch_fun,%eax
	call *%eax
	jmp .L1235
	.align 4
.L643:
	pushl %edx
	call write_decimal1
.L1235:
	addl $4,%esp
	pushl $61
	movl write_ch_fun,%eax
	call *%eax
	movl $Ct_body,(%ebx)
	addl $4,%esp
	jmp .L633
	.align 4
.L636:
	addl $8,%ebx
	addl $8,%esi
	cmpl %edx,%esi
	jb .L637
.L633:
	movl PRINTlevel,%edx
	testl %edx,%edx
	jl .L646
	cmpl %edx,12(%ebp)
	jge .L1269
	.align 4
.L646:
	movl 8(%ebp),%ecx
	movswl 8(%ecx),%ecx
	movl %ecx,-284(%ebp)
	pushl $35
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpl $0,-284(%ebp)
	jne .L647
	pushl $48
	movl write_ch_fun,%eax
	call *%eax
	jmp .L1236
	.align 4
.L647:
	movl -284(%ebp),%ecx
	pushl %ecx
	call write_decimal1
.L1236:
	addl $4,%esp
	pushl $65
	movl write_ch_fun,%eax
	call *%eax
	movl PRINTlevel,%edx
	addl $4,%esp
	testl %edx,%edx
	jl .L649
	movl 12(%ebp),%eax
	addl -284(%ebp),%eax
	cmpl %edx,%eax
	jl .L649
	subl 12(%ebp),%edx
	movl %edx,-284(%ebp)
.L649:
	xorl %edi,%edi
	cmpl -284(%ebp),%edi
	jge .L651
	leal -256(%ebp),%edx
	.align 4
.L653:
	movl $0,(%edx,%edi,4)
	incl %edi
	cmpl -284(%ebp),%edi
	jl .L653
.L651:
	movl $0,-288(%ebp)
	xorl %ebx,%ebx
	jmp .L655
	.align 4
.L685:
	movl -264(%ebp),%eax
	addl %eax,-288(%ebp)
.L655:
	movl %ebx,%edi
	cmpl -284(%ebp),%edi
	jge .L659
	leal -256(%ebp,%edi,4),%esi
	.align 4
.L661:
	cmpl $0,(%esi)
	jne .L662
	pushl $256
	movl write_ch_fun,%ecx
	call *%ecx
	pushl $40
	movl write_ch_fun,%eax
	call *%eax
	pushl $258
	movl write_ch_fun,%ecx
	call *%ecx
	movl 8(%ebp),%eax
	movl 24(%eax),%eax
	addl $12,%esp
	cmpl $0,(%eax,%edi,4)
	je .L1223
.L662:
	cmpl $0,(%esi)
	jle .L665
	pushl $259
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
.L665:
	movl PRINTlength,%edx
	testl %edx,%edx
	jl .L660
	cmpl %edx,(%esi)
	jl .L660
	movl $.LC28,%ebx
	cmpb $0,.LC28
	je .L671
	.align 4
.L669:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L669
.L671:
	pushl $257
	movl write_ch_fun,%ecx
	call *%ecx
	movl 8(%ebp),%eax
	movl 24(%eax),%edx
	movl (%edx,%edi,4),%edx
	subl (%esi),%edx
	movl %edx,-264(%ebp)
	movl $0,(%esi)
	leal 1(%edi),%ebx
	addl $4,%esp
	cmpl -284(%ebp),%ebx
	jge .L673
	leal 0(,%ebx,4),%edx
	addl 24(%eax),%edx
	.align 4
.L675:
	movl -264(%ebp),%ecx
	imull (%edx),%ecx
	movl %ecx,-264(%ebp)
	addl $4,%edx
	incl %ebx
	cmpl -284(%ebp),%ebx
	jl .L675
.L673:
	leal -1(%edi),%ebx
	jmp .L664
	.align 4
.L660:
	addl $4,%esi
	incl %edi
	cmpl -284(%ebp),%edi
	jl .L661
.L659:
	movl 8(%ebp),%eax
	movswl 8(%eax),%eax
	movl -284(%ebp),%ebx
	decl %ebx
	cmpl %eax,-284(%ebp)
	jne .L678
	movl -288(%ebp),%ecx
	pushl %ecx
	movl 8(%ebp),%eax
	pushl %eax
	call fSaref1
	movl %eax,%edx
	movl vs_top,%ecx
	movl %edx,(%ecx)
	addl $4,vs_top
	movl 12(%ebp),%eax
	addl -284(%ebp),%eax
	pushl %eax
	movl vs_top,%ecx
	pushl -4(%ecx)
	call write_object
	addl $-4,vs_top
	addl $16,%esp
	jmp .L679
	.align 4
.L1223:
	pushl $41
	movl write_ch_fun,%eax
	call *%eax
	pushl $257
	movl write_ch_fun,%eax
	call *%eax
	leal -1(%edi),%ebx
	movl $0,-264(%ebp)
	addl $8,%esp
	jmp .L664
	.align 4
.L678:
	pushl $35
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
.L679:
	movl $1,-264(%ebp)
.L664:
	testl %ebx,%ebx
	jl .L372
	leal -256(%ebp,%ebx,4),%esi
	.align 4
.L682:
	movl (%esi),%eax
	movl %eax,-304(%ebp)
	incl %eax
	movl %eax,(%esi)
	movl 8(%ebp),%ecx
	movl 24(%ecx),%edx
	movl -304(%ebp),%eax
	incl %eax
	cmpl (%edx,%ebx,4),%eax
	jl .L681
	movl $0,(%esi)
	pushl $41
	movl write_ch_fun,%eax
	call *%eax
	pushl $257
	movl write_ch_fun,%eax
	call *%eax
	addl $-4,%esi
	addl $8,%esp
	decl %ebx
	jns .L682
.L681:
	testl %ebx,%ebx
	jge .L685
	jmp .L372
	.align 4
.L687:
	cmpl $0,PRINTarray
	jne .L688
	movl $.LC29,%ebx
	cmpb $0,.LC29
	je .L693
	.align 4
.L691:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L691
.L693:
	movl $28,%ebx
	.align 4
.L696:
	movl 8(%ebp),%edx
	movl %ebx,%ecx
	sarl %cl,%edx
	andl $15,%edx
	cmpl $9,%edx
	jg .L697
	leal 48(%edx),%eax
	jmp .L1237
	.align 4
.L697:
	leal 87(%edx),%eax
.L1237:
	pushl %eax
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	addl $-4,%ebx
	jns .L696
	movl $.LC30,%ebx
	cmpb $0,.LC30
	je .L372
	.align 4
.L704:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L704
	jmp .L372
	.align 4
.L688:
	cmpl $0,PRINTcircle
	je .L707
	movl PRINTvs_top,%esi
	movl PRINTvs_limit,%edx
	cmpl %edx,%esi
	jae .L707
	leal 4(%esi),%ebx
	.align 4
.L711:
	movl 8(%ebp),%eax
	cmpl (%esi),%eax
	jne .L710
	cmpl $Cnil_body,(%ebx)
	jne .L1271
	pushl $35
	movl write_ch_fun,%eax
	call *%eax
	movl %esi,%edx
	subl PRINTvs_top,%edx
	movl %edx,%eax
	shrl $31,%eax
	sarl $2,%edx
	addl %eax,%edx
	sarl $1,%edx
	addl $4,%esp
	testl %edx,%edx
	jne .L717
	pushl $48
	movl write_ch_fun,%eax
	call *%eax
	jmp .L1239
	.align 4
.L717:
	pushl %edx
	call write_decimal1
.L1239:
	addl $4,%esp
	pushl $61
	movl write_ch_fun,%eax
	call *%eax
	movl $Ct_body,(%ebx)
	addl $4,%esp
	jmp .L707
	.align 4
.L710:
	addl $8,%ebx
	addl $8,%esi
	cmpl %edx,%esi
	jb .L711
.L707:
	movl PRINTlevel,%edx
	testl %edx,%edx
	jl .L720
	cmpl %edx,12(%ebp)
	jge .L1269
	.align 4
.L720:
	pushl $35
	movl write_ch_fun,%ecx
	call *%ecx
	pushl $256
	movl write_ch_fun,%eax
	call *%eax
	pushl $40
	movl write_ch_fun,%ecx
	call *%ecx
	pushl $258
	movl write_ch_fun,%eax
	call *%eax
	addl $16,%esp
	movl 8(%ebp),%ecx
	cmpl $0,16(%ecx)
	jle .L843
	cmpl $0,PRINTlength
	jne .L722
	movl $.LC31,%ebx
	cmpb $0,.LC31
	je .L1268
	.align 4
.L725:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L725
	jmp .L1268
	.align 4
.L722:
	pushl $0
	movl 8(%ebp),%eax
	pushl %eax
	call fSaref1
	movl %eax,%edx
	movl vs_top,%ecx
	movl %edx,(%ecx)
	addl $4,vs_top
	movl 12(%ebp),%ebx
	incl %ebx
	pushl %ebx
	movl vs_top,%eax
	pushl -4(%eax)
	call write_object
	addl $-4,vs_top
	movl $1,%edi
	addl $16,%esp
	jmp .L1240
	.align 4
.L731:
	pushl $259
	movl write_ch_fun,%eax
	call *%eax
	movl PRINTlength,%edx
	addl $4,%esp
	testl %edx,%edx
	jl .L732
	cmpl %edx,%edi
	jl .L732
	movl $.LC32,%ebx
	cmpb $0,.LC32
	je .L843
	.align 4
.L735:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L735
	jmp .L843
	.align 4
.L732:
	pushl %edi
	movl 8(%ebp),%eax
	pushl %eax
	call fSaref1
	movl %eax,%edx
	movl vs_top,%ecx
	movl %edx,(%ecx)
	addl $4,vs_top
	pushl %ebx
	movl vs_top,%eax
	pushl -4(%eax)
	call write_object
	addl $-4,vs_top
	addl $16,%esp
	incl %edi
.L1240:
	movl 8(%ebp),%ecx
	cmpl 16(%ecx),%edi
	jl .L731
	jmp .L843
	.align 4
.L739:
	cmpl $0,PRINTescape
	jne .L740
	xorl %edi,%edi
	movl 8(%ebp),%eax
	cmpl 16(%eax),%edi
	jge .L372
	.align 4
.L744:
	movl 8(%ebp),%ecx
	movl 12(%ecx),%ecx
	movsbl (%edi,%ecx),%eax
	pushl %eax
	movl write_ch_fun,%ecx
	call *%ecx
	addl $4,%esp
	incl %edi
	movl 8(%ebp),%eax
	cmpl 16(%eax),%edi
	jl .L744
	jmp .L372
	.align 4
.L740:
	pushl $34
	movl write_ch_fun,%ecx
	call *%ecx
	xorl %edi,%edi
	addl $4,%esp
	movl 8(%ebp),%eax
	cmpl 16(%eax),%edi
	jge .L747
	.align 4
.L749:
	movl 8(%ebp),%ecx
	movl 12(%ecx),%edx
	movb (%edi,%edx),%bl
	cmpb $34,%bl
	je .L751
	cmpb $92,%bl
	jne .L750
.L751:
	pushl $92
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	movl 8(%ebp),%ecx
	movl 12(%ecx),%edx
.L750:
	movsbl (%edi,%edx),%edx
	pushl %edx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	incl %edi
	movl 8(%ebp),%ecx
	cmpl 16(%ecx),%edi
	jl .L749
.L747:
	pushl $34
	jmp .L1225
	.align 4
.L753:
	cmpl $0,PRINTarray
	jne .L754
	movl $.LC33,%ebx
	cmpb $0,.LC33
	je .L759
	.align 4
.L757:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L757
.L759:
	movl $28,%ebx
	.align 4
.L762:
	movl 8(%ebp),%edx
	movl %ebx,%ecx
	sarl %cl,%edx
	andl $15,%edx
	cmpl $9,%edx
	jg .L763
	leal 48(%edx),%eax
	jmp .L1241
	.align 4
.L763:
	leal 87(%edx),%eax
.L1241:
	pushl %eax
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	addl $-4,%ebx
	jns .L762
	movl $.LC34,%ebx
	cmpb $0,.LC34
	je .L372
	.align 4
.L770:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L770
	jmp .L372
	.align 4
.L754:
	movl $.LC35,%ebx
	cmpb $0,.LC35
	je .L777
	.align 4
.L775:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L775
.L777:
	xorl %edi,%edi
	movl 8(%ebp),%eax
	cmpl 16(%eax),%edi
	jge .L372
	.align 4
.L781:
	movl %edi,%edx
	testl %edi,%edi
	jge .L783
	leal 7(%edi),%edx
.L783:
	sarl $3,%edx
	movl 8(%ebp),%ecx
	movl 12(%ecx),%ecx
	movsbl (%edx,%ecx),%eax
	sall $3,%edx
	movl %edi,%ebx
	subl %edx,%ebx
	movl $128,-304(%ebp)
	movl %ebx,%ecx
	sarl %cl,-304(%ebp)
	movl -304(%ebp),%ecx
	testl %eax,%ecx
	je .L782
	pushl $49
	jmp .L1242
	.align 4
.L782:
	pushl $48
.L1242:
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	incl %edi
	movl 8(%ebp),%eax
	cmpl 16(%eax),%edi
	jl .L781
	jmp .L372
	.align 4
.L787:
	movl siSsharp_comma,%eax
	movl 8(%ebp),%ecx
	cmpl %eax,8(%ecx)
	jne .L788
	movl $.LC36,%ebx
	cmpb $0,.LC36
	je .L793
	.align 4
.L791:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L791
.L793:
	movl 12(%ebp),%ecx
	pushl %ecx
	movl 8(%ebp),%eax
	pushl 4(%eax)
	call write_object
	jmp .L372
	.align 4
.L788:
	cmpl $0,PRINTcircle
	je .L794
	movl PRINTvs_top,%esi
	movl PRINTvs_limit,%edx
	cmpl %edx,%esi
	jae .L794
	leal 4(%esi),%ebx
	.align 4
.L798:
	movl 8(%ebp),%ecx
	cmpl (%esi),%ecx
	jne .L797
	cmpl $Cnil_body,(%ebx)
	jne .L1271
	pushl $35
	movl write_ch_fun,%eax
	call *%eax
	movl %esi,%edx
	subl PRINTvs_top,%edx
	movl %edx,%eax
	shrl $31,%eax
	sarl $2,%edx
	addl %eax,%edx
	sarl $1,%edx
	addl $4,%esp
	testl %edx,%edx
	jne .L804
	pushl $48
	movl write_ch_fun,%eax
	call *%eax
	jmp .L1244
	.align 4
.L804:
	pushl %edx
	call write_decimal1
.L1244:
	addl $4,%esp
	pushl $61
	movl write_ch_fun,%eax
	call *%eax
	movl $Ct_body,(%ebx)
	addl $4,%esp
	jmp .L794
	.align 4
.L797:
	addl $8,%ebx
	addl $8,%esi
	cmpl %edx,%esi
	jb .L798
.L794:
	cmpl $0,PRINTpretty
	je .L807
	movl 8(%ebp),%eax
	movl 8(%eax),%edx
	cmpl sLquote,%edx
	jne .L808
	movl 4(%eax),%ebx
	cmpb $0,(%ebx)
	jne .L808
	cmpl $Cnil_body,4(%ebx)
	jne .L808
	pushl $39
	movl write_ch_fun,%ecx
	call *%ecx
	movl 12(%ebp),%eax
	pushl %eax
	movl 8(%ebp),%ecx
	movl 4(%ecx),%ecx
	pushl 8(%ecx)
	call write_object
	jmp .L372
	.align 4
.L808:
	cmpl sLfunction,%edx
	jne .L807
	movl 8(%ebp),%eax
	movl 4(%eax),%edx
	cmpb $0,(%edx)
	jne .L807
	cmpl $Cnil_body,4(%edx)
	jne .L807
	pushl $35
	movl write_ch_fun,%ecx
	call *%ecx
	pushl $39
	movl write_ch_fun,%eax
	call *%eax
	movl 12(%ebp),%ecx
	pushl %ecx
	movl 8(%ebp),%eax
	movl 4(%eax),%eax
	pushl 8(%eax)
	call write_object
	jmp .L372
	.align 4
.L807:
	movl PRINTlevel,%edx
	testl %edx,%edx
	jl .L810
	cmpl %edx,12(%ebp)
	jge .L1269
	.align 4
.L810:
	pushl $256
	movl write_ch_fun,%eax
	call *%eax
	pushl $40
	movl write_ch_fun,%eax
	call *%eax
	pushl $258
	movl write_ch_fun,%eax
	call *%eax
	addl $12,%esp
	cmpl $0,PRINTpretty
	je .L811
	movl 8(%ebp),%ecx
	movl 8(%ecx),%edx
	testl %edx,%edx
	je .L811
	cmpb $8,(%edx)
	jne .L811
	pushl $Cnil_body
	pushl sSpretty_print_format
	pushl 24(%edx)
	call getf
	movl %eax,%edx
	addl $12,%esp
	cmpl $Cnil_body,%edx
	jne .L812
.L811:
	xorl %edi,%edi
	jmp .L813
	.align 4
.L816:
	movl 8(%ebp),%eax
	movl 8(%eax),%eax
	movl %eax,-260(%ebp)
	movl 8(%ebp),%ecx
	movl 4(%ecx),%ecx
	movl %ecx,8(%ebp)
	movl 12(%ebp),%eax
	incl %eax
	pushl %eax
	movl -260(%ebp),%ecx
	pushl %ecx
	call write_object
	addl $8,%esp
	movl 8(%ebp),%eax
	cmpb $0,(%eax)
	je .L822
	cmpl $Cnil_body,%eax
	je .L843
	pushl $259
	movl write_ch_fun,%eax
	call *%eax
	movl $.LC38,%ebx
	addl $4,%esp
	cmpb $0,.LC38
	je .L828
	.align 4
.L826:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L826
.L828:
	movl 12(%ebp),%ecx
	pushl %ecx
	movl 8(%ebp),%eax
	pushl %eax
	jmp .L1245
	.align 4
.L822:
	cmpl $0,PRINTcircle
	je .L829
	movl PRINTvs_top,%esi
	movl PRINTvs_limit,%edx
	cmpl %edx,%esi
	jae .L829
	.align 4
.L833:
	movl 8(%ebp),%ecx
	cmpl (%esi),%ecx
	jne .L832
	cmpl $Cnil_body,4(%esi)
	je .L835
	movl $.LC39,%ebx
	cmpb $0,.LC39
	je .L840
	.align 4
.L838:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L838
.L840:
	movl %esi,%edx
	subl PRINTvs_top,%edx
	movl %edx,%eax
	shrl $31,%eax
	sarl $2,%edx
	addl %eax,%edx
	sarl $1,%edx
	jne .L841
	pushl $48
	movl write_ch_fun,%eax
	call *%eax
	jmp .L1246
	.align 4
.L841:
	pushl %edx
	call write_decimal1
.L1246:
	addl $4,%esp
	pushl $35
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	jmp .L843
	.align 4
.L835:
	pushl $259
	movl write_ch_fun,%eax
	call *%eax
	movl $.LC40,%ebx
	addl $4,%esp
	cmpb $0,.LC40
	je .L876
	.align 4
.L847:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L847
	jmp .L876
	.align 4
.L832:
	addl $8,%esi
	cmpl %edx,%esi
	jb .L833
.L829:
	testl %edi,%edi
	jne .L851
	cmpl $0,-260(%ebp)
	je .L851
	movl -260(%ebp),%eax
	cmpb $8,(%eax)
	jne .L851
	pushl $260
	jmp .L1247
	.align 4
.L851:
	pushl $259
.L1247:
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	incl %edi
.L813:
	movl PRINTlength,%edx
	testl %edx,%edx
	jl .L816
	cmpl %edx,%edi
	jl .L816
	movl $.LC37,%ebx
	cmpb $0,.LC37
	je .L843
	.align 4
.L819:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L819
.L843:
	pushl $41
	movl write_ch_fun,%eax
	call *%eax
.L1268:
	pushl $257
	jmp .L1225
	.align 4
.L812:
	pushl %edx
	call fixint
	movl %eax,%ebx
	xorl %edi,%edi
	addl $4,%esp
	jmp .L854
	.align 4
.L857:
	movl 8(%ebp),%ecx
	movl 8(%ecx),%ecx
	movl %ecx,-260(%ebp)
	movl 8(%ebp),%eax
	movl 4(%eax),%eax
	movl %eax,8(%ebp)
	cmpl %ebx,%edi
	jg .L863
	cmpl $Cnil_body,%ecx
	jne .L863
	movl $.LC42,%esi
	cmpb $0,.LC42
	je .L869
	.align 4
.L866:
	movsbl (%esi),%eax
	pushl %eax
	incl %esi
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%esi)
	jne .L866
	jmp .L869
	.align 4
.L863:
	movl 12(%ebp),%ecx
	incl %ecx
	pushl %ecx
	movl -260(%ebp),%eax
	pushl %eax
	call write_object
	addl $8,%esp
.L869:
	movl 8(%ebp),%ecx
	cmpb $0,(%ecx)
	je .L870
	cmpl $Cnil_body,%ecx
	je .L843
	pushl $259
	movl write_ch_fun,%eax
	call *%eax
	movl $.LC43,%ebx
	addl $4,%esp
	cmpb $0,.LC43
	je .L876
	.align 4
.L874:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L874
.L876:
	movl 12(%ebp),%eax
	pushl %eax
	movl 8(%ebp),%ecx
	pushl %ecx
.L1245:
	call write_object
	addl $8,%esp
	jmp .L843
	.align 4
.L870:
	cmpl %ebx,%edi
	jl .L877
	pushl $261
	jmp .L1248
	.align 4
.L877:
	testl %edi,%edi
	jne .L879
	pushl $260
	jmp .L1248
	.align 4
.L879:
	pushl $259
.L1248:
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	incl %edi
.L854:
	movl PRINTlength,%edx
	testl %edx,%edx
	jl .L857
	cmpl %edx,%edi
	jl .L857
	movl $.LC41,%ebx
	cmpb $0,.LC41
	je .L843
	.align 4
.L860:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L860
	jmp .L843
	.align 4
.L882:
	movl $.LC44,%ebx
	cmpb $0,.LC44
	je .L887
	.align 4
.L885:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L885
.L887:
	movl 12(%ebp),%eax
	pushl %eax
	movl 8(%ebp),%ecx
	pushl 4(%ecx)
	call write_object
	movl $.LC45,%ebx
	addl $8,%esp
	cmpb $0,.LC45
	je .L372
	.align 4
.L890:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L890
	jmp .L372
	.align 4
.L893:
	movl $.LC46,%ebx
	cmpb $0,.LC46
	je .L898
	.align 4
.L896:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L896
.L898:
	movl $28,%ebx
	.align 4
.L901:
	movl 8(%ebp),%edx
	movl %ebx,%ecx
	sarl %cl,%edx
	andl $15,%edx
	cmpl $9,%edx
	jg .L902
	leal 48(%edx),%eax
	jmp .L1249
	.align 4
.L902:
	leal 87(%edx),%eax
.L1249:
	pushl %eax
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	addl $-4,%ebx
	jns .L901
	movl $.LC47,%ebx
	cmpb $0,.LC47
	je .L372
	.align 4
.L909:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L909
	jmp .L372
	.align 4
.L912:
	movl 8(%ebp),%eax
	movsbl 28(%eax),%edx
	cmpl $12,%edx
	ja .L1087
	jmp *.L1088(,%edx,4)
	.align 4
.section	.rodata
	.align 4
	.align 4
.L1088:
	.long .L914
	.long .L920
	.long .L926
	.long .L938
	.long .L944
	.long .L950
	.long .L969
	.long .L988
	.long .L1007
	.long .L1026
	.long .L1068
	.long .L1049
	.long .L932
.text
	.align 4
.L914:
	movl $.LC48,%ebx
	cmpb $0,.LC48
	je .L943
	.align 4
.L917:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L917
	jmp .L943
	.align 4
.L920:
	movl $.LC49,%ebx
	cmpb $0,.LC49
	je .L925
	.align 4
.L923:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L923
.L925:
	movl 12(%ebp),%eax
	pushl %eax
	movl 8(%ebp),%ecx
	pushl 12(%ecx)
	call write_object
	jmp .L1250
	.align 4
.L926:
	movl $.LC50,%ebx
	cmpb $0,.LC50
	je .L943
	.align 4
.L929:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L929
	jmp .L943
	.align 4
.L932:
	movl $.LC51,%ebx
	cmpb $0,.LC51
	je .L949
	.align 4
.L935:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L935
	jmp .L949
	.align 4
.L938:
	movl $.LC52,%ebx
	cmpb $0,.LC52
	je .L943
	.align 4
.L941:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L941
.L943:
	movl 12(%ebp),%ecx
	pushl %ecx
	movl 8(%ebp),%eax
	pushl 12(%eax)
	call write_object
	pushl $62
.L1229:
	movl write_ch_fun,%ecx
	call *%ecx
	jmp .L372
	.align 4
.L944:
	movl $.LC53,%ebx
	cmpb $0,.LC53
	je .L949
	.align 4
.L947:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L947
.L949:
	movl 12(%ebp),%eax
	pushl %eax
	movl 8(%ebp),%ecx
	pushl 8(%ecx)
	call write_object
	jmp .L1250
	.align 4
.L950:
	movl $.LC54,%ebx
	cmpb $0,.LC54
	je .L955
	.align 4
.L953:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L953
.L955:
	movl $28,%ebx
	.align 4
.L958:
	movl 8(%ebp),%edx
	movl %ebx,%ecx
	sarl %cl,%edx
	andl $15,%edx
	cmpl $9,%edx
	jg .L959
	leal 48(%edx),%eax
	jmp .L1251
	.align 4
.L959:
	leal 87(%edx),%eax
.L1251:
	pushl %eax
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	addl $-4,%ebx
	jns .L958
	movl $.LC55,%ebx
	cmpb $0,.LC55
	je .L372
	.align 4
.L966:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L966
	jmp .L372
	.align 4
.L969:
	movl $.LC56,%ebx
	cmpb $0,.LC56
	je .L974
	.align 4
.L972:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L972
.L974:
	movl $28,%ebx
	.align 4
.L977:
	movl 8(%ebp),%edx
	movl %ebx,%ecx
	sarl %cl,%edx
	andl $15,%edx
	cmpl $9,%edx
	jg .L978
	leal 48(%edx),%eax
	jmp .L1252
	.align 4
.L978:
	leal 87(%edx),%eax
.L1252:
	pushl %eax
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	addl $-4,%ebx
	jns .L977
	movl $.LC57,%ebx
	cmpb $0,.LC57
	je .L372
	.align 4
.L985:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L985
	jmp .L372
	.align 4
.L988:
	movl $.LC58,%ebx
	cmpb $0,.LC58
	je .L993
	.align 4
.L991:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L991
.L993:
	movl $28,%ebx
	.align 4
.L996:
	movl 8(%ebp),%edx
	movl %ebx,%ecx
	sarl %cl,%edx
	andl $15,%edx
	cmpl $9,%edx
	jg .L997
	leal 48(%edx),%eax
	jmp .L1253
	.align 4
.L997:
	leal 87(%edx),%eax
.L1253:
	pushl %eax
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	addl $-4,%ebx
	jns .L996
	movl $.LC59,%ebx
	cmpb $0,.LC59
	je .L372
	.align 4
.L1004:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L1004
	jmp .L372
	.align 4
.L1007:
	movl $.LC60,%ebx
	cmpb $0,.LC60
	je .L1012
	.align 4
.L1010:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L1010
.L1012:
	movl $28,%ebx
	.align 4
.L1015:
	movl 8(%ebp),%edx
	movl %ebx,%ecx
	sarl %cl,%edx
	andl $15,%edx
	cmpl $9,%edx
	jg .L1016
	leal 48(%edx),%eax
	jmp .L1254
	.align 4
.L1016:
	leal 87(%edx),%eax
.L1254:
	pushl %eax
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	addl $-4,%ebx
	jns .L1015
	movl $.LC61,%ebx
	cmpb $0,.LC61
	je .L372
	.align 4
.L1023:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L1023
	jmp .L372
	.align 4
.L1026:
	movl $.LC62,%ebx
	cmpb $0,.LC62
	je .L1031
	.align 4
.L1029:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L1029
.L1031:
	movl 8(%ebp),%eax
	movl 8(%eax),%eax
	movl %eax,-260(%ebp)
	movl 16(%eax),%ebx
	xorl %edi,%edi
	cmpl %ebx,%edi
	jge .L1033
	.align 4
.L1037:
	cmpl $15,%edi
	jg .L1033
	movl -260(%ebp),%ecx
	movl 12(%ecx),%ecx
	movsbl (%edi,%ecx),%eax
	pushl %eax
	movl write_ch_fun,%ecx
	call *%ecx
	addl $4,%esp
	incl %edi
	cmpl %ebx,%edi
	jl .L1037
.L1033:
	cmpl $16,%ebx
	jle .L1038
	movl $.LC63,%ebx
	cmpb $0,.LC63
	je .L1038
	.align 4
.L1041:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L1041
.L1038:
	movl $.LC64,%ebx
	cmpb $0,.LC64
	je .L372
	.align 4
.L1046:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L1046
	jmp .L372
	.align 4
.L1049:
	movl $.LC65,%ebx
	cmpb $0,.LC65
	je .L1054
	.align 4
.L1052:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L1052
.L1054:
	movl $28,%ebx
	.align 4
.L1057:
	movl 8(%ebp),%edx
	movl %ebx,%ecx
	sarl %cl,%edx
	andl $15,%edx
	cmpl $9,%edx
	jg .L1058
	leal 48(%edx),%eax
	jmp .L1255
	.align 4
.L1058:
	leal 87(%edx),%eax
.L1255:
	pushl %eax
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	addl $-4,%ebx
	jns .L1057
	movl $.LC66,%ebx
	cmpb $0,.LC66
	je .L372
	.align 4
.L1065:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L1065
	jmp .L372
	.align 4
.L1068:
	movl $.LC67,%ebx
	cmpb $0,.LC67
	je .L1073
	.align 4
.L1071:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L1071
.L1073:
	movl $28,%ebx
	.align 4
.L1076:
	movl 8(%ebp),%edx
	movl %ebx,%ecx
	sarl %cl,%edx
	andl $15,%edx
	cmpl $9,%edx
	jg .L1077
	leal 48(%edx),%eax
	jmp .L1256
	.align 4
.L1077:
	leal 87(%edx),%eax
.L1256:
	pushl %eax
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	addl $-4,%ebx
	jns .L1076
	movl $.LC68,%ebx
	cmpb $0,.LC68
	je .L372
	.align 4
.L1084:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L1084
	jmp .L372
	.align 4
.L1087:
	pushl $.LC69
	jmp .L1257
	.align 4
.L1089:
	movl $.LC70,%ebx
	cmpb $0,.LC70
	je .L1094
	.align 4
.L1092:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L1092
.L1094:
	pushl $1
	call alloc_object
	movl %eax,-260(%ebp)
	movl 8(%ebp),%eax
	movl 4(%eax),%eax
	movl -260(%ebp),%ecx
	movl %eax,4(%ecx)
	movl vs_top,%eax
	movl %ecx,(%eax)
	addl $4,vs_top
	movl 12(%ebp),%ecx
	pushl %ecx
	movl -260(%ebp),%eax
	pushl %eax
	jmp .L1258
	.align 4
.L1095:
	cmpl $0,PRINTcircle
	je .L1096
	movl PRINTvs_top,%esi
	movl PRINTvs_limit,%edx
	cmpl %edx,%esi
	jae .L1096
	leal 4(%esi),%ebx
	.align 4
.L1100:
	movl 8(%ebp),%ecx
	cmpl (%esi),%ecx
	jne .L1099
	cmpl $Cnil_body,(%ebx)
	je .L1102
	pushl $35
	movl write_ch_fun,%eax
	call *%eax
	movl %esi,%edx
	subl PRINTvs_top,%edx
	movl %edx,%eax
	shrl $31,%eax
	sarl $2,%edx
	addl %eax,%edx
	sarl $1,%edx
	addl $4,%esp
	testl %edx,%edx
	jne .L1103
.L1270:
	pushl $48
	movl write_ch_fun,%eax
	call *%eax
	jmp .L1259
	.align 4
.L1103:
	pushl %edx
	call write_decimal1
.L1259:
	addl $4,%esp
.L1269:
	pushl $35
	jmp .L1225
	.align 4
.L1102:
	pushl $35
	movl write_ch_fun,%eax
	call *%eax
	movl %esi,%edx
	subl PRINTvs_top,%edx
	movl %edx,%eax
	shrl $31,%eax
	sarl $2,%edx
	addl %eax,%edx
	sarl $1,%edx
	addl $4,%esp
	testl %edx,%edx
	jne .L1106
	pushl $48
	movl write_ch_fun,%eax
	call *%eax
	jmp .L1260
	.align 4
.L1106:
	pushl %edx
	call write_decimal1
.L1260:
	addl $4,%esp
	pushl $61
	movl write_ch_fun,%eax
	call *%eax
	movl $Ct_body,(%ebx)
	addl $4,%esp
	jmp .L1096
	.align 4
.L1099:
	addl $8,%ebx
	addl $8,%esi
	cmpl %edx,%esi
	jb .L1100
.L1096:
	movl PRINTlevel,%edx
	testl %edx,%edx
	jl .L1109
	cmpl %edx,12(%ebp)
	jge .L1269
	.align 4
.L1109:
	movl 8(%ebp),%eax
	movl 4(%eax),%edx
	cmpb $15,(%edx)
	je .L1110
	pushl %edx
	pushl sLstructure
	call FEwrong_type_argument
	addl $8,%esp
.L1110:
	cmpl $0,PRINTstructure
	jne .L1112
	movl 8(%ebp),%ecx
	movl 4(%ecx),%ecx
	movl 8(%ecx),%eax
	cmpl $Cnil_body,24(%eax)
	jne .L1111
.L1112:
	movl $.LC71,%ebx
	cmpb $0,.LC71
	je .L1117
	.align 4
.L1115:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L1115
.L1117:
	movl 8(%ebp),%ecx
	pushl %ecx
	call structure_to_list
	movl %eax,8(%ebp)
	movl vs_top,%ecx
	movl %eax,(%ecx)
	addl $4,vs_top
	movl 12(%ebp),%eax
	pushl %eax
	movl 8(%ebp),%ecx
	pushl %ecx
	jmp .L1258
	.align 4
.L1111:
	movl 12(%ebp),%eax
	pushl %eax
	movl 8(%ebp),%ecx
	pushl %ecx
	call call_structure_print_function
	jmp .L372
	.align 4
.L1118:
	movl $.LC72,%ebx
	cmpb $0,.LC72
	je .L1123
	.align 4
.L1121:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L1121
.L1123:
	movl $28,%ebx
	.align 4
.L1126:
	movl 8(%ebp),%edx
	movl %ebx,%ecx
	sarl %cl,%edx
	andl $15,%edx
	cmpl $9,%edx
	jg .L1127
	leal 48(%edx),%eax
	jmp .L1261
	.align 4
.L1127:
	leal 87(%edx),%eax
.L1261:
	pushl %eax
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	addl $-4,%ebx
	jns .L1126
	movl $.LC73,%ebx
	cmpb $0,.LC73
	je .L372
	.align 4
.L1134:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L1134
	jmp .L372
	.align 4
.L1137:
	pushl $35
	movl write_ch_fun,%eax
	call *%eax
	pushl $112
	movl write_ch_fun,%ecx
	call *%ecx
	movl 8(%ebp),%eax
	pushl %eax
	call namestring
	movl %eax,%edx
	movl vs_top,%ecx
	movl %edx,(%ecx)
	addl $4,vs_top
	movl 12(%ebp),%eax
	pushl %eax
	movl vs_top,%ecx
	pushl -4(%ecx)
.L1258:
	call write_object
	addl $-4,vs_top
	jmp .L372
	.align 4
.L1162:
	movl $.LC76,%ebx
	cmpb $0,.LC76
	je .L1167
	.align 4
.L1165:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L1165
.L1167:
	movl 8(%ebp),%eax
	movl 4(%eax),%edx
	cmpl $Cnil_body,%edx
	je .L1168
	movl 12(%ebp),%ecx
	pushl %ecx
	pushl %edx
	call write_object
	addl $8,%esp
	jmp .L1169
	.align 4
.L1168:
	movl $28,%ebx
	.align 4
.L1172:
	movl 8(%ebp),%edx
	movl %ebx,%ecx
	sarl %cl,%edx
	andl $15,%edx
	cmpl $9,%edx
	jg .L1173
	leal 48(%edx),%eax
	jmp .L1262
	.align 4
.L1173:
	leal 87(%edx),%eax
.L1262:
	pushl %eax
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	addl $-4,%ebx
	jns .L1172
.L1169:
	movl $.LC77,%ebx
	cmpb $0,.LC77
	je .L372
	.align 4
.L1180:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L1180
	jmp .L372
	.align 4
.L1184:
	movl $.LC78,%ebx
	cmpb $0,.LC78
	je .L1189
	.align 4
.L1187:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L1187
.L1189:
	movl 8(%ebp),%eax
	movl 4(%eax),%edx
	cmpl $Cnil_body,%edx
	je .L1190
	movl 12(%ebp),%ecx
	pushl %ecx
	pushl %edx
	call write_object
	addl $8,%esp
	jmp .L1191
	.align 4
.L1190:
	movl $28,%ebx
	.align 4
.L1194:
	movl 8(%ebp),%edx
	movl %ebx,%ecx
	sarl %cl,%edx
	andl $15,%edx
	cmpl $9,%edx
	jg .L1195
	leal 48(%edx),%eax
	jmp .L1263
	.align 4
.L1195:
	leal 87(%edx),%eax
.L1263:
	pushl %eax
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	addl $-4,%ebx
	jns .L1194
.L1191:
	movl $.LC79,%ebx
	cmpb $0,.LC79
	je .L372
	.align 4
.L1202:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L1202
	jmp .L372
	.align 4
.L1205:
	movl $.LC80,%ebx
	cmpb $0,.LC80
	je .L1210
	.align 4
.L1208:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L1208
.L1210:
	movl $28,%edi
	.align 4
.L1214:
	movl 8(%ebp),%ebx
	movl %edi,%ecx
	sarl %cl,%ebx
	andl $15,%ebx
	cmpl $9,%ebx
	jg .L1215
	leal 48(%ebx),%eax
	jmp .L1264
	.align 4
.L1215:
	leal 55(%ebx),%eax
.L1264:
	pushl %eax
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	addl $-4,%edi
	jns .L1214
.L1250:
	pushl $62
.L1225:
	movl write_ch_fun,%eax
	call *%eax
	jmp .L372
	.align 4
.L1218:
	pushl $.LC81
.L1257:
	call error
.L372:
	leal -368(%ebp),%esp
	popl %ebx
	popl %esi
	popl %edi
	leave
	ret
.Lfe6:
	.size	 write_object,.Lfe6-write_object
	.align 4
.globl travel_push_object
	.type	 travel_push_object,@function
travel_push_object:
	pushl %ebp
	movl %esp,%ebp
	subl $8,%esp
	pushl %edi
	pushl %esi
	pushl %ebx
	movl 8(%ebp),%esi
.L1273:
	movzbl (%esi),%edi
	cmpb $0,travel_push_type(%edi)
	je .L1272
	cmpl $8,%edi
	jne .L1275
	cmpl $Cnil_body,28(%esi)
	jne .L1272
.L1275:
	movl PRINTvs_top,%eax
	movl vs_top,%ecx
	movl %ecx,-8(%ebp)
	movl %ecx,-4(%ebp)
	cmpl %ecx,%eax
	jae .L1277
	movl %ecx,%ebx
	leal 4(%eax),%edx
	.align 4
.L1279:
	cmpl (%eax),%esi
	jne .L1278
	cmpl $Cnil_body,(%edx)
	jne .L1272
	movl $Ct_body,(%edx)
	jmp .L1272
	.align 4
.L1278:
	addl $8,%edx
	addl $8,%eax
	cmpl %ebx,%eax
	jb .L1279
.L1277:
	movl -4(%ebp),%ecx
	cmpl vs_limit,%ecx
	jb .L1283
	call vs_overflow
	jmp .L1284
	.align 4
.L1283:
	movl -8(%ebp),%ecx
	movl %esi,(%ecx)
	addl $4,vs_top
.L1284:
	movl vs_top,%eax
	cmpl vs_limit,%eax
	jb .L1285
	call vs_overflow
	jmp .L1286
	.align 4
.L1285:
	movl $Cnil_body,(%eax)
	addl $4,vs_top
.L1286:
	cmpl $11,%edi
	jne .L1287
	cmpw $0,10(%esi)
	jne .L1287
	xorl %ebx,%ebx
	cmpl 20(%esi),%ebx
	jge .L1272
	.align 4
.L1291:
	movl 12(%esi),%eax
	pushl (%eax,%ebx,4)
	call travel_push_object
	addl $4,%esp
	incl %ebx
	cmpl 20(%esi),%ebx
	jl .L1291
	jmp .L1272
	.align 4
.L1287:
	cmpl $12,%edi
	jne .L1294
	cmpw $0,10(%esi)
	jne .L1294
	xorl %ebx,%ebx
	cmpl 16(%esi),%ebx
	jge .L1272
	.align 4
.L1298:
	movl 12(%esi),%eax
	pushl (%eax,%ebx,4)
	call travel_push_object
	addl $4,%esp
	incl %ebx
	cmpl 16(%esi),%ebx
	jl .L1298
	jmp .L1272
	.align 4
.L1294:
	testl %edi,%edi
	jne .L1301
	pushl 8(%esi)
	call travel_push_object
	movl 4(%esi),%esi
	addl $4,%esp
	jmp .L1273
	.align 4
.L1301:
	cmpl $15,%edi
	jne .L1272
	xorl %ebx,%ebx
	movl 4(%esi),%edx
	jmp .L1309
	.align 4
.L1307:
	pushl %ebx
	pushl %edx
	pushl %esi
	call structure_ref
	pushl %eax
	call travel_push_object
	addl $16,%esp
	incl %ebx
	movl 4(%esi),%eax
	movl %eax,%edx
.L1309:
	movl 8(%edx),%eax
	cmpl 4(%eax),%ebx
	jl .L1307
.L1272:
	leal -20(%ebp),%esp
	popl %ebx
	popl %esi
	popl %edi
	leave
	ret
.Lfe7:
	.size	 travel_push_object,.Lfe7-travel_push_object
.data
.LC82:
	.string	"~S is an illegal PRINT-BASE."
.LC83:
	.string	"~S is an illegal PRINT-CASE."
.LC84:
	.string	"~S is an illegal PRINT-LEVEL."
	.align 32
.LC85:
	.string	"~S is an illegal PRINT-LENGTH."
.text
	.align 4
.globl setupPRINTdefault
	.type	 setupPRINTdefault,@function
setupPRINTdefault:
	pushl %ebp
	movl %esp,%ebp
	pushl %esi
	pushl %ebx
	movl vs_top,%eax
	movl %eax,PRINTvs_top
	pushl sLAstandard_outputA
	call symbol_value
	movl %eax,PRINTstream
	addl $4,%esp
	cmpb $16,(%eax)
	je .L1318
	pushl sLAterminal_ioA
	call symbol_value
	movl %eax,%edx
	movl sLAstandard_outputA,%eax
	movl %edx,4(%eax)
	movl vs_top,%edx
	movl PRINTstream,%eax
	movl %eax,(%edx)
	addl $4,vs_top
	pushl PRINTstream
	pushl sLstream
	call FEwrong_type_argument
	addl $12,%esp
.L1318:
	pushl sLAprint_escapeA
	call symbol_value
	addl $4,%esp
	cmpl $Cnil_body,%eax
	setne %al
	movl %eax,%esi
	andl $1,%esi
	movl %esi,PRINTescape
	pushl sLAprint_prettyA
	call symbol_value
	addl $4,%esp
	cmpl $Cnil_body,%eax
	setne %al
	movl %eax,%esi
	andl $1,%esi
	movl %esi,PRINTpretty
	pushl sLAprint_circleA
	call symbol_value
	addl $4,%esp
	cmpl $Cnil_body,%eax
	setne %al
	movl %eax,%esi
	andl $1,%esi
	movl %esi,PRINTcircle
	pushl sLAprint_baseA
	call symbol_value
	movl %eax,%ebx
	addl $4,%esp
	cmpb $1,(%ebx)
	jne .L1320
	movl 4(%ebx),%eax
	cmpl $1,%eax
	jle .L1320
	cmpl $36,%eax
	jle .L1319
.L1320:
	pushl $10
	call make_fixnum
	movl %eax,%edx
	movl sLAprint_baseA,%eax
	movl %edx,4(%eax)
	movl vs_top,%eax
	movl %ebx,(%eax)
	addl $4,vs_top
	pushl %ebx
	pushl $1
	pushl $.LC82
	call FEerror
	addl $16,%esp
	jmp .L1321
	.align 4
.L1319:
	movl %eax,PRINTbase
.L1321:
	pushl sLAprint_radixA
	call symbol_value
	addl $4,%esp
	cmpl $Cnil_body,%eax
	setne %al
	movl %eax,%esi
	andl $1,%esi
	movl %esi,PRINTradix
	pushl sLAprint_caseA
	call symbol_value
	movl %eax,PRINTcase
	addl $4,%esp
	cmpl sKupcase,%eax
	je .L1322
	movl sKdowncase,%edx
	cmpl %edx,%eax
	je .L1322
	cmpl sKcapitalize,%eax
	je .L1322
	movl sLAprint_caseA,%eax
	movl %edx,4(%eax)
	movl vs_top,%edx
	movl PRINTcase,%eax
	movl %eax,(%edx)
	addl $4,vs_top
	pushl PRINTcase
	pushl $1
	pushl $.LC83
	call FEerror
	addl $12,%esp
.L1322:
	pushl sLAprint_gensymA
	call symbol_value
	addl $4,%esp
	cmpl $Cnil_body,%eax
	setne %al
	movl %eax,%esi
	andl $1,%esi
	movl %esi,PRINTgensym
	pushl sLAprint_levelA
	call symbol_value
	movl %eax,%ebx
	addl $4,%esp
	cmpl $Cnil_body,%ebx
	jne .L1323
	movl $-1,PRINTlevel
	jmp .L1324
	.align 4
.L1323:
	cmpb $1,(%ebx)
	jne .L1326
	movl 4(%ebx),%eax
	testl %eax,%eax
	jge .L1325
.L1326:
	movl sLAprint_levelA,%eax
	movl $Cnil_body,4(%eax)
	movl vs_top,%eax
	movl %ebx,(%eax)
	addl $4,vs_top
	pushl %ebx
	pushl $1
	pushl $.LC84
	call FEerror
	addl $12,%esp
	jmp .L1324
	.align 4
.L1325:
	movl %eax,PRINTlevel
.L1324:
	pushl sLAprint_lengthA
	call symbol_value
	movl %eax,%ebx
	addl $4,%esp
	cmpl $Cnil_body,%ebx
	jne .L1328
	movl $-1,PRINTlength
	jmp .L1329
	.align 4
.L1328:
	cmpb $1,(%ebx)
	jne .L1331
	movl 4(%ebx),%eax
	testl %eax,%eax
	jge .L1330
.L1331:
	movl sLAprint_lengthA,%eax
	movl $Cnil_body,4(%eax)
	movl vs_top,%eax
	movl %ebx,(%eax)
	addl $4,vs_top
	pushl %ebx
	pushl $1
	pushl $.LC85
	call FEerror
	addl $12,%esp
	jmp .L1329
	.align 4
.L1330:
	movl %eax,PRINTlength
.L1329:
	pushl sLAprint_arrayA
	call symbol_value
	addl $4,%esp
	cmpl $Cnil_body,%eax
	setne %al
	movl %eax,%esi
	andl $1,%esi
	movl %esi,PRINTarray
	cmpl $0,PRINTcircle
	je .L1333
	movb $1,travel_push_type+8
	movb PRINTarray,%al
	movb %al,travel_push_type+12
	movb %al,travel_push_type+11
	pushl 8(%ebp)
	call travel_push_object
	movl PRINTvs_top,%edx
	movl %edx,%ecx
	addl $4,%esp
	movl vs_top,%eax
	cmpl %eax,%edx
	jae .L1339
	.align 4
.L1336:
	cmpl $Cnil_body,4(%ecx)
	je .L1338
	movl (%ecx),%eax
	movl %eax,(%edx)
	movl $Cnil_body,4(%edx)
	addl $8,%edx
	movl vs_top,%eax
.L1338:
	addl $8,%ecx
	cmpl %eax,%ecx
	jb .L1336
.L1339:
	movl %edx,vs_top
	movl %edx,PRINTvs_limit
.L1333:
	cmpl $0,PRINTpretty
	je .L1341
	movl printStructBufp,%eax
	movl $0,776(%eax)
	movl $0,772(%eax)
	movl $0,768(%eax)
	movl $0,784(%eax)
	movl $0,780(%eax)
	movw $0,256(%eax)
	movl $writec_queue,write_ch_fun
	jmp .L1342
	.align 4
.L1341:
	movl $writec_PRINTstream,write_ch_fun
.L1342:
	pushl sSAprint_packageA
	call symbol_value
	addl $4,%esp
	cmpl $Cnil_body,%eax
	setne %al
	movl %eax,%esi
	andl $1,%esi
	movl %esi,PRINTpackage
	pushl sSAprint_structureA
	call symbol_value
	cmpl $Cnil_body,%eax
	setne %al
	movl %eax,%esi
	andl $1,%esi
	movl %esi,PRINTstructure
	leal -8(%ebp),%esp
	popl %ebx
	popl %esi
	leave
	ret
.Lfe8:
	.size	 setupPRINTdefault,.Lfe8-setupPRINTdefault
	.align 4
.globl potential_number_p
	.type	 potential_number_p,@function
potential_number_p:
	pushl %ebp
	movl %esp,%ebp
	subl $8,%esp
	pushl %edi
	pushl %esi
	pushl %ebx
	movl 8(%ebp),%eax
	movl 16(%eax),%edx
	movl %edx,-4(%ebp)
	testl %edx,%edx
	je .L1364
	movl 12(%eax),%eax
	movl %eax,-8(%ebp)
	xorl %edi,%edi
	movsbl (%eax),%ebx
	movl 12(%ebp),%ecx
	pushl %ecx
	pushl %ebx
	call digitp
	addl $8,%esp
	testl %eax,%eax
	jge .L1352
	cmpl $43,%ebx
	je .L1353
	cmpl $45,%ebx
	je .L1353
	cmpl $94,%ebx
	je .L1353
	cmpl $95,%ebx
	je .L1353
	jmp .L1364
	.align 4
.L1352:
	movl $1,%edi
.L1353:
	movl -4(%ebp),%edx
	movl -8(%ebp),%ecx
	movb -1(%ecx,%edx),%al
	cmpb $43,%al
	je .L1364
	cmpb $45,%al
	je .L1364
	movl $1,%esi
	cmpl -4(%ebp),%esi
	jge .L1358
	.align 4
.L1360:
	movl -8(%ebp),%edx
	movsbl (%esi,%edx),%ebx
	movl 12(%ebp),%ecx
	pushl %ecx
	pushl %ebx
	call digitp
	addl $8,%esp
	testl %eax,%eax
	jge .L1361
	cmpl $43,%ebx
	je .L1359
	cmpl $45,%ebx
	je .L1359
	cmpl $47,%ebx
	je .L1359
	cmpl $46,%ebx
	je .L1359
	cmpl $94,%ebx
	je .L1359
	cmpl $95,%ebx
	je .L1359
	cmpl $101,%ebx
	je .L1359
	cmpl $69,%ebx
	je .L1359
	cmpl $115,%ebx
	je .L1359
	cmpl $83,%ebx
	je .L1359
	cmpl $108,%ebx
	je .L1359
	cmpl $76,%ebx
	je .L1359
	jmp .L1364
	.align 4
.L1361:
	incl %edi
.L1359:
	incl %esi
	cmpl -4(%ebp),%esi
	jl .L1360
.L1358:
	testl %edi,%edi
	je .L1364
	movl $1,%eax
	jmp .L1365
	.align 4
.L1364:
	xorl %eax,%eax
.L1365:
	leal -20(%ebp),%esp
	popl %ebx
	popl %esi
	popl %edi
	leave
	ret
.Lfe9:
	.size	 potential_number_p,.Lfe9-potential_number_p
.data
.LC86:
	.string	"~S is not a stream."
.LC87:
	.string	"~S is an illegal PRINT-BASE."
.LC88:
	.string	"~S is an illegal PRINT-CASE."
.LC89:
	.string	"~S is an illegal PRINT-LEVEL."
	.align 32
.LC90:
	.string	"~S is an illegal PRINT-LENGTH."
.text
	.align 4
.globl Lwrite
	.type	 Lwrite,@function
Lwrite:
	pushl %ebp
	movl %esp,%ebp
	subl $788,%esp
	pushl %edi
	pushl %esi
	pushl %ebx
	movl printStructBufp,%esi
	movl vs_base,%ebx
	movl %ebx,%edx
	movl vs_top,%eax
	subl %ebx,%eax
	sarl $2,%eax
	testl %eax,%eax
	jg .L1367
	call too_few_arguments
	movl vs_base,%edx
.L1367:
	pushl sKarray
	pushl sKgensym
	pushl sKcase
	pushl sKlength
	pushl sKlevel
	pushl sKpretty
	pushl sKcircle
	pushl sKbase
	pushl sKradix
	pushl sKescape
	pushl sKstream
	pushl $11
	pushl $0
	pushl $0
	leal 4(%edx),%eax
	pushl %eax
	call parse_key
	movl vs_base,%eax
	leal 92(%eax),%edi
	movl %edi,vs_top
	movl 48(%eax),%eax
	addl $60,%esp
	cmpl $Cnil_body,%eax
	jne .L1368
	movl %eax,4(%ebx)
.L1368:
	movl vs_base,%edx
	cmpl $Cnil_body,52(%edx)
	jne .L1369
	pushl sLAprint_escapeA
	call symbol_value
	movl %eax,8(%ebx)
	addl $4,%esp
	movl vs_base,%edx
.L1369:
	cmpl $Cnil_body,56(%edx)
	jne .L1370
	pushl sLAprint_radixA
	call symbol_value
	movl %eax,12(%ebx)
	addl $4,%esp
	movl vs_base,%edx
.L1370:
	cmpl $Cnil_body,60(%edx)
	jne .L1371
	pushl sLAprint_baseA
	call symbol_value
	movl %eax,16(%ebx)
	addl $4,%esp
	movl vs_base,%edx
.L1371:
	cmpl $Cnil_body,64(%edx)
	jne .L1372
	pushl sLAprint_circleA
	call symbol_value
	movl %eax,20(%ebx)
	addl $4,%esp
	movl vs_base,%edx
.L1372:
	cmpl $Cnil_body,68(%edx)
	jne .L1373
	pushl sLAprint_prettyA
	call symbol_value
	movl %eax,24(%ebx)
	addl $4,%esp
	movl vs_base,%edx
.L1373:
	cmpl $Cnil_body,72(%edx)
	jne .L1374
	pushl sLAprint_levelA
	call symbol_value
	movl %eax,28(%ebx)
	addl $4,%esp
	movl vs_base,%edx
.L1374:
	cmpl $Cnil_body,76(%edx)
	jne .L1375
	pushl sLAprint_lengthA
	call symbol_value
	movl %eax,32(%ebx)
	addl $4,%esp
	movl vs_base,%edx
.L1375:
	cmpl $Cnil_body,80(%edx)
	jne .L1376
	pushl sLAprint_caseA
	call symbol_value
	movl %eax,36(%ebx)
	addl $4,%esp
	movl vs_base,%edx
.L1376:
	cmpl $Cnil_body,84(%edx)
	jne .L1377
	pushl sLAprint_gensymA
	call symbol_value
	movl %eax,40(%ebx)
	addl $4,%esp
	movl vs_base,%edx
.L1377:
	cmpl $Cnil_body,88(%edx)
	jne .L1378
	pushl sLAprint_arrayA
	call symbol_value
	movl %eax,44(%ebx)
	addl $4,%esp
.L1378:
	leal -788(%ebp),%edi
	movl %edi,printStructBufp
	movl 4(%ebx),%eax
	cmpl $Cnil_body,%eax
	jne .L1379
	pushl sLAstandard_outputA
	jmp .L1409
	.align 4
.L1379:
	cmpl $Ct_body,%eax
	jne .L1380
	pushl sLAterminal_ioA
.L1409:
	call symbol_value
	movl %eax,4(%ebx)
	addl $4,%esp
.L1380:
	cmpb $16,(%eax)
	je .L1382
	pushl %eax
	pushl $1
	pushl $.LC86
	call FEerror
	addl $12,%esp
.L1382:
	movl vs_top,%eax
	movl %eax,PRINTvs_top
	movl 4(%ebx),%eax
	movl %eax,PRINTstream
	cmpl $Cnil_body,8(%ebx)
	setne %al
	movl %eax,%edi
	andl $1,%edi
	movl %edi,PRINTescape
	cmpl $Cnil_body,24(%ebx)
	setne %al
	movl %eax,%edi
	andl $1,%edi
	movl %edi,PRINTpretty
	cmpl $Cnil_body,20(%ebx)
	setne %al
	movl %eax,%edi
	andl $1,%edi
	movl %edi,PRINTcircle
	movl 16(%ebx),%edx
	cmpb $1,(%edx)
	jne .L1384
	movl 4(%edx),%eax
	cmpl $1,%eax
	jle .L1384
	cmpl $36,%eax
	jle .L1383
.L1384:
	pushl %edx
	pushl $1
	pushl $.LC87
	call FEerror
	addl $12,%esp
	jmp .L1385
	.align 4
.L1383:
	movl %eax,PRINTbase
.L1385:
	cmpl $Cnil_body,12(%ebx)
	setne %al
	movl %eax,%edi
	andl $1,%edi
	movl %edi,PRINTradix
	movl 36(%ebx),%eax
	movl %eax,PRINTcase
	cmpl sKupcase,%eax
	je .L1386
	cmpl sKdowncase,%eax
	je .L1386
	cmpl sKcapitalize,%eax
	je .L1386
	pushl 36(%ebx)
	pushl $1
	pushl $.LC88
	call FEerror
	addl $12,%esp
.L1386:
	cmpl $Cnil_body,40(%ebx)
	setne %al
	movl %eax,%edi
	andl $1,%edi
	movl %edi,PRINTgensym
	movl 28(%ebx),%eax
	cmpl $Cnil_body,%eax
	jne .L1387
	movl $-1,PRINTlevel
	jmp .L1388
	.align 4
.L1387:
	cmpb $1,(%eax)
	jne .L1390
	movl 4(%eax),%edx
	testl %edx,%edx
	jge .L1389
.L1390:
	pushl %eax
	pushl $1
	pushl $.LC89
	call FEerror
	addl $12,%esp
	jmp .L1388
	.align 4
.L1389:
	movl %edx,PRINTlevel
.L1388:
	movl 32(%ebx),%eax
	cmpl $Cnil_body,%eax
	jne .L1392
	movl $-1,PRINTlength
	jmp .L1393
	.align 4
.L1392:
	cmpb $1,(%eax)
	jne .L1395
	movl 4(%eax),%edx
	testl %edx,%edx
	jge .L1394
.L1395:
	pushl %eax
	pushl $1
	pushl $.LC90
	call FEerror
	addl $12,%esp
	jmp .L1393
	.align 4
.L1394:
	movl %edx,PRINTlength
.L1393:
	cmpl $Cnil_body,44(%ebx)
	setne %al
	movl %eax,%edi
	andl $1,%edi
	movl %edi,PRINTarray
	cmpl $0,PRINTcircle
	je .L1397
	movl (%ebx),%edx
	movb $1,travel_push_type+8
	movb PRINTarray,%al
	movb %al,travel_push_type+12
	movb %al,travel_push_type+11
	pushl %edx
	call travel_push_object
	movl PRINTvs_top,%edx
	movl %edx,%ecx
	addl $4,%esp
	movl vs_top,%eax
	cmpl %eax,%edx
	jae .L1403
	.align 4
.L1400:
	cmpl $Cnil_body,4(%ecx)
	je .L1402
	movl (%ecx),%eax
	movl %eax,(%edx)
	movl $Cnil_body,4(%edx)
	addl $8,%edx
	movl vs_top,%eax
.L1402:
	addl $8,%ecx
	cmpl %eax,%ecx
	jb .L1400
.L1403:
	movl %edx,vs_top
	movl %edx,PRINTvs_limit
.L1397:
	cmpl $0,PRINTpretty
	je .L1405
	movl printStructBufp,%eax
	movl $0,776(%eax)
	movl $0,772(%eax)
	movl $0,768(%eax)
	movl $0,784(%eax)
	movl $0,780(%eax)
	movw $0,256(%eax)
	movl $writec_queue,write_ch_fun
	jmp .L1406
	.align 4
.L1405:
	movl $writec_PRINTstream,write_ch_fun
.L1406:
	pushl sSAprint_packageA
	call symbol_value
	addl $4,%esp
	cmpl $Cnil_body,%eax
	setne %al
	movl %eax,%edi
	andl $1,%edi
	movl %edi,PRINTpackage
	pushl sSAprint_structureA
	call symbol_value
	addl $4,%esp
	cmpl $Cnil_body,%eax
	setne %al
	movl %eax,%edi
	andl $1,%edi
	movl %edi,PRINTstructure
	pushl $0
	pushl (%ebx)
	call write_object
	addl $8,%esp
	movl PRINTvs_top,%eax
	movl %eax,vs_top
	cmpl $0,PRINTpretty
	je .L1408
	pushl $1
	call flush_queue
	addl $4,%esp
.L1408:
	movl %esi,printStructBufp
	pushl PRINTstream
	call flush_stream
	movl vs_base,%edx
	movl (%ebx),%eax
	movl %eax,(%edx)
	movl vs_base,%edi
	addl $4,%edi
	movl %edi,vs_top
	leal -800(%ebp),%esp
	popl %ebx
	popl %esi
	popl %edi
	leave
	ret
.Lfe10:
	.size	 Lwrite,.Lfe10-Lwrite
	.align 4
.globl Lpprint
	.type	 Lpprint,@function
Lpprint:
	pushl %ebp
	movl %esp,%ebp
	subl $788,%esp
	pushl %esi
	pushl %ebx
	movl vs_base,%esi
	movl vs_top,%ebx
	subl %esi,%ebx
	sarl $2,%ebx
	testl %ebx,%ebx
	jg .L1419
	call too_few_arguments
.L1419:
	cmpl $1,%ebx
	jg .L1420
	movl vs_top,%eax
	movl $Cnil_body,(%eax)
	addl $4,vs_top
	incl %ebx
.L1420:
	cmpl $2,%ebx
	jle .L1421
	call too_many_arguments
.L1421:
	movl 4(%esi),%eax
	cmpl $Cnil_body,%eax
	jne .L1422
	pushl sLAstandard_outputA
	jmp .L1427
	.align 4
.L1422:
	cmpl $Ct_body,%eax
	jne .L1423
	pushl sLAterminal_ioA
.L1427:
	call symbol_value
	movl %eax,4(%esi)
	addl $4,%esp
.L1423:
	leal 4(%esi),%eax
	pushl %eax
	call check_type_stream
	pushl 4(%esi)
	pushl $10
	call writec_stream
	movl printStructBufp,%ebx
	leal -788(%ebp),%edx
	movl %edx,printStructBufp
	pushl (%esi)
	call setupPRINTdefault
	movl 4(%esi),%eax
	movl %eax,PRINTstream
	movl $1,PRINTescape
	movl $1,PRINTpretty
	movl printStructBufp,%eax
	movl $0,776(%eax)
	movl $0,772(%eax)
	movl $0,768(%eax)
	movl $0,784(%eax)
	movl $0,780(%eax)
	movw $0,256(%eax)
	movl $writec_queue,write_ch_fun
	pushl $0
	pushl (%esi)
	call write_object
	addl $24,%esp
	movl PRINTvs_top,%eax
	movl %eax,vs_top
	cmpl $0,PRINTpretty
	je .L1426
	pushl $1
	call flush_queue
	addl $4,%esp
.L1426:
	movl %ebx,printStructBufp
	pushl 4(%esi)
	call flush_stream
	movl vs_base,%eax
	movl %eax,vs_top
	movl $Cnil_body,(%eax)
	leal -796(%ebp),%esp
	popl %ebx
	popl %esi
	leave
	ret
.Lfe11:
	.size	 Lpprint,.Lfe11-Lpprint
	.align 4
.globl Lwrite_string
	.type	 Lwrite_string,@function
Lwrite_string:
	pushl %ebp
	movl %esp,%ebp
	subl $8,%esp
	pushl %esi
	pushl %ebx
	movl vs_base,%esi
	movl vs_top,%ebx
	subl %esi,%ebx
	sarl $2,%ebx
	testl %ebx,%ebx
	jg .L1440
	call too_few_arguments
.L1440:
	cmpl $1,%ebx
	jg .L1441
	movl vs_top,%eax
	movl $Cnil_body,(%eax)
	addl $4,vs_top
.L1441:
	pushl sKend
	pushl sKstart
	pushl $2
	pushl $0
	pushl $0
	movl vs_base,%eax
	addl $8,%eax
	pushl %eax
	call parse_key
	movl vs_base,%ecx
	addl $24,%ecx
	movl %ecx,vs_top
	leal -4(%ebp),%eax
	pushl %eax
	leal -8(%ebp),%eax
	pushl %eax
	pushl 12(%esi)
	pushl 8(%esi)
	pushl (%esi)
	call get_string_start_end
	movl 4(%esi),%eax
	addl $44,%esp
	cmpl $Cnil_body,%eax
	jne .L1442
	pushl sLAstandard_outputA
	jmp .L1450
	.align 4
.L1442:
	cmpl $Ct_body,%eax
	jne .L1443
	pushl sLAterminal_ioA
.L1450:
	call symbol_value
	movl %eax,4(%esi)
	addl $4,%esp
.L1443:
	pushl %esi
	call check_type_string
	leal 4(%esi),%eax
	pushl %eax
	call check_type_stream
	movl -8(%ebp),%ebx
	addl $8,%esp
	cmpl -4(%ebp),%ebx
	jge .L1446
	.align 4
.L1448:
	pushl 4(%esi)
	movl (%esi),%eax
	movl 12(%eax),%eax
	movsbl (%ebx,%eax),%eax
	pushl %eax
	call writec_stream
	addl $8,%esp
	incl %ebx
	cmpl -4(%ebp),%ebx
	jl .L1448
.L1446:
	pushl 4(%esi)
	call flush_stream
	movl vs_base,%edx
	movl (%esi),%eax
	movl %eax,(%edx)
	movl vs_base,%ecx
	addl $4,%ecx
	movl %ecx,vs_top
	leal -16(%ebp),%esp
	popl %ebx
	popl %esi
	leave
	ret
.Lfe12:
	.size	 Lwrite_string,.Lfe12-Lwrite_string
	.align 4
.globl Lwrite_line
	.type	 Lwrite_line,@function
Lwrite_line:
	pushl %ebp
	movl %esp,%ebp
	subl $8,%esp
	pushl %esi
	pushl %ebx
	movl vs_base,%esi
	movl vs_top,%ebx
	subl %esi,%ebx
	sarl $2,%ebx
	testl %ebx,%ebx
	jg .L1452
	call too_few_arguments
.L1452:
	cmpl $1,%ebx
	jg .L1453
	movl vs_top,%eax
	movl $Cnil_body,(%eax)
	addl $4,vs_top
.L1453:
	pushl sKend
	pushl sKstart
	pushl $2
	pushl $0
	pushl $0
	movl vs_base,%eax
	addl $8,%eax
	pushl %eax
	call parse_key
	movl vs_base,%ecx
	addl $24,%ecx
	movl %ecx,vs_top
	leal -4(%ebp),%eax
	pushl %eax
	leal -8(%ebp),%eax
	pushl %eax
	pushl 12(%esi)
	pushl 8(%esi)
	pushl (%esi)
	call get_string_start_end
	movl 4(%esi),%eax
	addl $44,%esp
	cmpl $Cnil_body,%eax
	jne .L1454
	pushl sLAstandard_outputA
	jmp .L1462
	.align 4
.L1454:
	cmpl $Ct_body,%eax
	jne .L1455
	pushl sLAterminal_ioA
.L1462:
	call symbol_value
	movl %eax,4(%esi)
	addl $4,%esp
.L1455:
	pushl %esi
	call check_type_string
	leal 4(%esi),%eax
	pushl %eax
	call check_type_stream
	movl -8(%ebp),%ebx
	addl $8,%esp
	cmpl -4(%ebp),%ebx
	jge .L1458
	.align 4
.L1460:
	pushl 4(%esi)
	movl (%esi),%eax
	movl 12(%eax),%eax
	movsbl (%ebx,%eax),%eax
	pushl %eax
	call writec_stream
	addl $8,%esp
	incl %ebx
	cmpl -4(%ebp),%ebx
	jl .L1460
.L1458:
	pushl 4(%esi)
	pushl $10
	call writec_stream
	pushl 4(%esi)
	call flush_stream
	movl vs_base,%edx
	movl (%esi),%eax
	movl %eax,(%edx)
	movl vs_base,%ecx
	addl $4,%ecx
	movl %ecx,vs_top
	leal -16(%ebp),%esp
	popl %ebx
	popl %esi
	leave
	ret
.Lfe13:
	.size	 Lwrite_line,.Lfe13-Lwrite_line
	.align 4
.globl Lfresh_line
	.type	 Lfresh_line,@function
Lfresh_line:
	pushl %ebp
	movl %esp,%ebp
	pushl %esi
	pushl %ebx
	movl vs_base,%esi
	movl vs_top,%ebx
	subl %esi,%ebx
	sarl $2,%ebx
	jns .L1468
	call too_few_arguments
.L1468:
	testl %ebx,%ebx
	jg .L1469
	movl vs_top,%eax
	movl $Cnil_body,(%eax)
	addl $4,vs_top
	incl %ebx
.L1469:
	cmpl $1,%ebx
	jle .L1470
	call too_many_arguments
.L1470:
	movl (%esi),%eax
	cmpl $Cnil_body,%eax
	jne .L1471
	pushl sLAstandard_outputA
	jmp .L1477
	.align 4
.L1471:
	cmpl $Ct_body,%eax
	jne .L1472
	pushl sLAterminal_ioA
.L1477:
	call symbol_value
	movl %eax,(%esi)
	addl $4,%esp
.L1472:
	pushl $1
	pushl %eax
	call coerce_stream
	addl $8,%esp
	cmpl $Cnil_body,%eax
	je .L1474
	movl %eax,(%esi)
	jmp .L1475
	.align 4
.L1474:
	pushl %esi
	call check_type_stream
	addl $4,%esp
.L1475:
	pushl (%esi)
	call file_column
	addl $4,%esp
	testl %eax,%eax
	jne .L1476
	movl vs_base,%eax
	movl $Cnil_body,(%eax)
	jmp .L1478
	.align 4
.L1476:
	pushl (%esi)
	pushl $10
	call writec_stream
	pushl (%esi)
	call flush_stream
	movl vs_base,%eax
	movl $Ct_body,(%eax)
.L1478:
	movl vs_base,%edx
	addl $4,%edx
	movl %edx,vs_top
	leal -8(%ebp),%esp
	popl %ebx
	popl %esi
	leave
	ret
.Lfe14:
	.size	 Lfresh_line,.Lfe14-Lfresh_line
.data
.LC91:
	.string	"~S is not a byte."
	.align 32
.LC92:
	.string	"travel_push_size to small see print.d"
.LC93:
	.string	"~S is not a stream."
.text
	.align 4
.globl princ
	.type	 princ,@function
princ:
	pushl %ebp
	movl %esp,%ebp
	subl $788,%esp
	pushl %edi
	pushl %esi
	pushl %ebx
	movl 8(%ebp),%esi
	movl 12(%ebp),%ebx
	cmpl $Cnil_body,%ebx
	jne .L1506
	pushl sLAstandard_outputA
	jmp .L1521
	.align 4
.L1506:
	cmpl $Ct_body,%ebx
	jne .L1507
	pushl sLAterminal_ioA
.L1521:
	call symbol_value
	movl %eax,%ebx
	addl $4,%esp
.L1507:
	cmpb $16,(%ebx)
	je .L1509
	pushl %ebx
	pushl $1
	pushl $.LC93
	call FEerror
	addl $12,%esp
.L1509:
	testl %esi,%esi
	je .L1515
	movb (%esi),%al
	cmpb $8,%al
	je .L1513
	ja .L1520
	cmpb $7,%al
	je .L1515
	jmp .L1516
	.align 4
.L1520:
	cmpb $13,%al
	je .L1515
	jmp .L1516
	.align 4
.L1513:
	pushl sLAprint_caseA
	call symbol_value
	movl %eax,PRINTcase
	pushl sSAprint_packageA
	call symbol_value
	addl $8,%esp
	cmpl $Cnil_body,%eax
	setne %al
	movl %eax,%edx
	andl $1,%edx
	movl %edx,PRINTpackage
.L1515:
	movl %ebx,PRINTstream
	movl $0,PRINTescape
	movl $writec_PRINTstream,write_ch_fun
	pushl $0
	pushl %esi
	call write_object
	jmp .L1512
	.align 4
.L1516:
	movl printStructBufp,%edi
	leal -788(%ebp),%edx
	movl %edx,printStructBufp
	pushl %esi
	call setupPRINTdefault
	movl %ebx,PRINTstream
	movl $0,PRINTescape
	pushl $0
	pushl %esi
	call write_object
	addl $12,%esp
	movl PRINTvs_top,%eax
	movl %eax,vs_top
	cmpl $0,PRINTpretty
	je .L1518
	pushl $1
	call flush_queue
.L1518:
	movl %edi,printStructBufp
.L1512:
	movl %esi,%eax
	leal -800(%ebp),%esp
	popl %ebx
	popl %esi
	popl %edi
	leave
	ret
.Lfe15:
	.size	 princ,.Lfe15-princ
.data
.LC94:
	.string	"~S is not a stream."
.LC95:
	.string	"~S is not a stream."
.LC96:
	.string	"WRITE"
.LC97:
	.string	"PRIN1"
.LC98:
	.string	"PRINT"
.LC99:
	.string	"PPRINT"
.LC100:
	.string	"PRINC"
.LC101:
	.string	"WRITE-CHAR"
.LC102:
	.string	"WRITE-STRING"
.LC103:
	.string	"WRITE-LINE"
.LC104:
	.string	"TERPRI"
.LC105:
	.string	"FRESH-LINE"
.LC106:
	.string	"FINISH-OUTPUT"
.LC107:
	.string	"FORCE-OUTPUT"
.LC108:
	.string	"CLEAR-OUTPUT"
.LC109:
	.string	"WRITE-BYTE"
.LC110:
	.string	"SET-LINE-LENGTH"
	.comm	big_register_1,4,4
	.comm	tf,4,4
	.comm	kf,4,4
	.comm	car_or_cdr,4,4
	.comm	casefun,4,4
	.comm	sKupcase,4,4
	.comm	sKdowncase,4,4
	.comm	sKcapitalize,4,4
	.comm	sKstream,4,4
	.comm	sKescape,4,4
	.comm	sKpretty,4,4
	.comm	sKcircle,4,4
	.comm	sKbase,4,4
	.comm	sKradix,4,4
	.comm	sKcase,4,4
	.comm	sKgensym,4,4
	.comm	sKlevel,4,4
	.comm	sKlength,4,4
	.comm	sKarray,4,4
	.comm	sLAprint_escapeA,4,4
	.comm	sLAprint_prettyA,4,4
	.comm	sLAprint_circleA,4,4
	.comm	sLAprint_baseA,4,4
	.comm	sLAprint_radixA,4,4
	.comm	sLAprint_caseA,4,4
	.comm	sLAprint_gensymA,4,4
	.comm	sLAprint_levelA,4,4
	.comm	sLAprint_lengthA,4,4
	.comm	sLAprint_arrayA,4,4
.text
	.align 4
.globl prin1
	.type	 prin1,@function
prin1:
	pushl %ebp
	movl %esp,%ebp
	subl $788,%esp
	pushl %edi
	pushl %esi
	pushl %ebx
	movl 8(%ebp),%esi
	movl 12(%ebp),%ebx
	cmpl $Cnil_body,%ebx
	jne .L1523
	pushl sLAstandard_outputA
	jmp .L1577
	.align 4
.L1523:
	cmpl $Ct_body,%ebx
	jne .L1524
	pushl sLAterminal_ioA
.L1577:
	call symbol_value
	movl %eax,%ebx
	addl $4,%esp
.L1524:
	cmpb $16,(%ebx)
	je .L1526
	pushl %ebx
	pushl $1
	pushl $.LC94
	call FEerror
	addl $12,%esp
.L1526:
	testl %esi,%esi
	je .L1531
	movb (%esi),%al
	cmpb $7,%al
	je .L1531
	cmpb $13,%al
	jne .L1532
.L1531:
	movl %ebx,PRINTstream
	movl $1,PRINTescape
	movl $writec_PRINTstream,write_ch_fun
	pushl $0
	pushl %esi
	call write_object
	addl $8,%esp
	jmp .L1529
	.align 4
.L1532:
	movl printStructBufp,%edi
	leal -788(%ebp),%edx
	movl %edx,printStructBufp
	pushl %esi
	call setupPRINTdefault
	movl %ebx,PRINTstream
	movl $1,PRINTescape
	pushl $0
	pushl %esi
	call write_object
	addl $12,%esp
	movl PRINTvs_top,%eax
	movl %eax,vs_top
	cmpl $0,PRINTpretty
	je .L1534
	pushl $1
	call flush_queue
	addl $4,%esp
.L1534:
	movl %edi,printStructBufp
.L1529:
	pushl %ebx
	call flush_stream
	movl %esi,%eax
	leal -800(%ebp),%esp
	popl %ebx
	popl %esi
	popl %edi
	leave
	ret
.Lfe16:
	.size	 prin1,.Lfe16-prin1
	.align 4
.globl print
	.type	 print,@function
print:
	pushl %ebp
	movl %esp,%ebp
	subl $792,%esp
	pushl %edi
	pushl %esi
	pushl %ebx
	movl 8(%ebp),%esi
	movl 12(%ebp),%edi
	pushl %edi
	call terpri
	movl %edi,%ebx
	addl $4,%esp
	cmpl $Cnil_body,%edi
	jne .L1537
	pushl sLAstandard_outputA
	jmp .L1578
	.align 4
.L1537:
	cmpl $Ct_body,%edi
	jne .L1538
	pushl sLAterminal_ioA
.L1578:
	call symbol_value
	movl %eax,%ebx
	addl $4,%esp
.L1538:
	cmpb $16,(%ebx)
	je .L1540
	pushl %ebx
	pushl $1
	pushl $.LC94
	call FEerror
	addl $12,%esp
.L1540:
	testl %esi,%esi
	je .L1543
	movb (%esi),%al
	cmpb $7,%al
	je .L1543
	cmpb $13,%al
	jne .L1545
.L1543:
	movl %ebx,PRINTstream
	movl $1,PRINTescape
	movl $writec_PRINTstream,write_ch_fun
	pushl $0
	pushl %esi
	call write_object
	addl $8,%esp
	jmp .L1546
	.align 4
.L1545:
	movl printStructBufp,%edx
	movl %edx,-792(%ebp)
	leal -788(%ebp),%edx
	movl %edx,printStructBufp
	pushl %esi
	call setupPRINTdefault
	movl %ebx,PRINTstream
	movl $1,PRINTescape
	pushl $0
	pushl %esi
	call write_object
	addl $12,%esp
	movl PRINTvs_top,%eax
	movl %eax,vs_top
	cmpl $0,PRINTpretty
	je .L1548
	pushl $1
	call flush_queue
	addl $4,%esp
.L1548:
	movl -792(%ebp),%edx
	movl %edx,printStructBufp
.L1546:
	pushl %ebx
	call flush_stream
	addl $4,%esp
	pushl %edi
	pushl $character_table1+1280
	call princ
	movl %esi,%eax
	leal -804(%ebp),%esp
	popl %ebx
	popl %esi
	popl %edi
	leave
	ret
.Lfe17:
	.size	 print,.Lfe17-print
	.align 4
.globl terpri
	.type	 terpri,@function
terpri:
	pushl %ebp
	movl %esp,%ebp
	pushl %ebx
	movl 8(%ebp),%ebx
	cmpl $Cnil_body,%ebx
	jne .L1551
	pushl sLAstandard_outputA
	jmp .L1579
	.align 4
.L1551:
	cmpl $Ct_body,%ebx
	jne .L1552
	pushl sLAterminal_ioA
.L1579:
	call symbol_value
	movl %eax,%ebx
	addl $4,%esp
.L1552:
	cmpb $16,(%ebx)
	je .L1554
	pushl %ebx
	pushl $1
	pushl $.LC95
	call FEerror
	addl $12,%esp
.L1554:
	pushl %ebx
	pushl $10
	call writec_stream
	pushl %ebx
	call flush_stream
	movl $Cnil_body,%eax
	movl -4(%ebp),%ebx
	leave
	ret
.Lfe18:
	.size	 terpri,.Lfe18-terpri
	.comm	sSpretty_print_format,4,4
	.comm	sSAprint_packageA,4,4
	.comm	sSAprint_structureA,4,4
	.comm	sSAprint_nansA,4,4
	.align 4
.globl writec_queue
	.type	 writec_queue,@function
writec_queue:
	pushl %ebp
	movl %esp,%ebp
	pushl %esi
	pushl %ebx
	movl printStructBufp,%ecx
	cmpl $127,776(%ecx)
	jle .L24
	pushl $0
	call flush_queue
	addl $4,%esp
	movl printStructBufp,%ecx
	cmpl $127,776(%ecx)
	jle .L24
	pushl $0
	pushl $.LC0
	call FEerror
	movl printStructBufp,%ecx
.L24:
	movl 772(%ecx),%esi
	leal 0(,%esi,2),%edx
	movl 8(%ebp),%eax
	movw %ax,(%edx,%ecx)
	movl printStructBufp,%ebx
	movl 772(%ebx),%ecx
	leal 1(%ecx),%edx
	movl %edx,%eax
	testl %edx,%edx
	jge .L25
	leal 128(%ecx),%eax
.L25:
	andb $128,%al
	subl %eax,%edx
	movl %edx,772(%ebx)
	movl printStructBufp,%eax
	incl 776(%eax)
	leal -8(%ebp),%esp
	popl %ebx
	popl %esi
	leave
	ret
.Lfe19:
	.size	 writec_queue,.Lfe19-writec_queue
	.align 4
.globl writec_PRINTstream
	.type	 writec_PRINTstream,@function
writec_PRINTstream:
	pushl %ebp
	movl %esp,%ebp
	movl 8(%ebp),%edx
	leal -259(%edx),%eax
	cmpl $1,%eax
	ja .L122
	pushl PRINTstream
	pushl $32
	jmp .L1580
	.align 4
.L122:
	cmpl $255,%edx
	jg .L123
	pushl PRINTstream
	pushl %edx
.L1580:
	call writec_stream
.L123:
	leave
	ret
.Lfe20:
	.size	 writec_PRINTstream,.Lfe20-writec_PRINTstream
	.align 4
.globl write_str
	.type	 write_str,@function
write_str:
	pushl %ebp
	movl %esp,%ebp
	pushl %ebx
	movl 8(%ebp),%ebx
	cmpb $0,(%ebx)
	je .L127
	.align 4
.L128:
	movsbl (%ebx),%eax
	pushl %eax
	incl %ebx
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	cmpb $0,(%ebx)
	jne .L128
.L127:
	movl -4(%ebp),%ebx
	leave
	ret
.Lfe21:
	.size	 write_str,.Lfe21-write_str
	.align 4
.globl write_decimal
	.type	 write_decimal,@function
write_decimal:
	pushl %ebp
	movl %esp,%ebp
	movl 8(%ebp),%eax
	testl %eax,%eax
	jne .L131
	pushl $48
	movl write_ch_fun,%eax
	call *%eax
	jmp .L130
	.align 4
.L131:
	pushl %eax
	call write_decimal1
.L130:
	leave
	ret
.Lfe22:
	.size	 write_decimal,.Lfe22-write_decimal
	.align 4
.globl write_decimal1
	.type	 write_decimal1,@function
write_decimal1:
	pushl %ebp
	movl %esp,%ebp
	subl $4,%esp
	pushl %esi
	pushl %ebx
	movl 8(%ebp),%esi
	testl %esi,%esi
	je .L132
	movl $1717986919,%eax
	imull %esi
	movl %edx,%ebx
	sarl $2,%ebx
	movl %esi,-4(%ebp)
	sarl $31,-4(%ebp)
	subl -4(%ebp),%ebx
	pushl %ebx
	call write_decimal1
	leal (%ebx,%ebx,4),%ebx
	addl %ebx,%ebx
	subl %ebx,%esi
	addl $48,%esi
	pushl %esi
	movl write_ch_fun,%eax
	call *%eax
.L132:
	leal -12(%ebp),%esp
	popl %ebx
	popl %esi
	leave
	ret
.Lfe23:
	.size	 write_decimal1,.Lfe23-write_decimal1
	.align 4
.globl write_addr
	.type	 write_addr,@function
write_addr:
	pushl %ebp
	movl %esp,%ebp
	pushl %esi
	pushl %ebx
	movl 8(%ebp),%esi
	movl $28,%ebx
	.align 4
.L138:
	movl %esi,%eax
	movl %ebx,%ecx
	sarl %cl,%eax
	andl $15,%eax
	cmpl $9,%eax
	jg .L139
	addl $48,%eax
	jmp .L1581
	.align 4
.L139:
	addl $87,%eax
.L1581:
	pushl %eax
	movl write_ch_fun,%eax
	call *%eax
	addl $4,%esp
	addl $-4,%ebx
	jns .L138
	leal -8(%ebp),%esp
	popl %ebx
	popl %esi
	leave
	ret
.Lfe24:
	.size	 write_addr,.Lfe24-write_addr
	.comm	travel_push_type,32,32
	.align 4
.globl setupPRINTcircle
	.type	 setupPRINTcircle,@function
setupPRINTcircle:
	pushl %ebp
	movl %esp,%ebp
	movl 12(%ebp),%eax
	movb %al,travel_push_type+8
	movb PRINTarray,%al
	movb %al,travel_push_type+12
	movb %al,travel_push_type+11
	pushl 8(%ebp)
	call travel_push_object
	movl PRINTvs_top,%ecx
	movl %ecx,%edx
	movl vs_top,%eax
	cmpl %eax,%ecx
	jae .L1312
	.align 4
.L1314:
	cmpl $Cnil_body,4(%edx)
	je .L1313
	movl (%edx),%eax
	movl %eax,(%ecx)
	movl $Cnil_body,4(%ecx)
	addl $8,%ecx
	movl vs_top,%eax
.L1313:
	addl $8,%edx
	cmpl %eax,%edx
	jb .L1314
.L1312:
	movl %ecx,vs_top
	movl %ecx,PRINTvs_limit
	leave
	ret
.Lfe25:
	.size	 setupPRINTcircle,.Lfe25-setupPRINTcircle
	.align 4
.globl cleanupPRINT
	.type	 cleanupPRINT,@function
cleanupPRINT:
	pushl %ebp
	movl %esp,%ebp
	movl PRINTvs_top,%eax
	movl %eax,vs_top
	cmpl $0,PRINTpretty
	je .L1344
	pushl $1
	call flush_queue
.L1344:
	leave
	ret
.Lfe26:
	.size	 cleanupPRINT,.Lfe26-cleanupPRINT
	.align 4
.globl write_object_by_default
	.type	 write_object_by_default,@function
write_object_by_default:
	pushl %ebp
	movl %esp,%ebp
	subl $788,%esp
	pushl %esi
	pushl %ebx
	movl 8(%ebp),%ebx
	movl printStructBufp,%esi
	leal -788(%ebp),%edx
	movl %edx,printStructBufp
	pushl %ebx
	call setupPRINTdefault
	pushl $0
	pushl %ebx
	call write_object
	pushl PRINTstream
	call flush_stream
	addl $16,%esp
	movl PRINTvs_top,%eax
	movl %eax,vs_top
	cmpl $0,PRINTpretty
	je .L1347
	pushl $1
	call flush_queue
.L1347:
	movl %esi,printStructBufp
	leal -796(%ebp),%esp
	popl %ebx
	popl %esi
	leave
	ret
.Lfe27:
	.size	 write_object_by_default,.Lfe27-write_object_by_default
	.align 4
.globl terpri_by_default
	.type	 terpri_by_default,@function
terpri_by_default:
	pushl %ebp
	movl %esp,%ebp
	pushl sLAstandard_outputA
	call symbol_value
	movl %eax,PRINTstream
	addl $4,%esp
	cmpb $16,(%eax)
	je .L1349
	pushl %eax
	pushl sLstream
	call FEwrong_type_argument
	addl $8,%esp
.L1349:
	pushl PRINTstream
	pushl $10
	call writec_stream
	leave
	ret
.Lfe28:
	.size	 terpri_by_default,.Lfe28-terpri_by_default
	.align 4
.globl Lprin1
	.type	 Lprin1,@function
Lprin1:
	pushl %ebp
	movl %esp,%ebp
	pushl %esi
	pushl %ebx
	movl vs_base,%esi
	movl vs_top,%ebx
	subl %esi,%ebx
	sarl $2,%ebx
	testl %ebx,%ebx
	jg .L1411
	call too_few_arguments
.L1411:
	cmpl $1,%ebx
	jg .L1412
	movl vs_top,%eax
	movl $Cnil_body,(%eax)
	addl $4,vs_top
	incl %ebx
.L1412:
	cmpl $2,%ebx
	jle .L1413
	call too_many_arguments
.L1413:
	pushl 4(%esi)
	pushl (%esi)
	call prin1
	movl vs_base,%edx
	movl (%esi),%eax
	movl %eax,(%edx)
	movl vs_base,%ecx
	addl $4,%ecx
	movl %ecx,vs_top
	leal -8(%ebp),%esp
	popl %ebx
	popl %esi
	leave
	ret
.Lfe29:
	.size	 Lprin1,.Lfe29-Lprin1
	.align 4
.globl Lprint
	.type	 Lprint,@function
Lprint:
	pushl %ebp
	movl %esp,%ebp
	pushl %esi
	pushl %ebx
	movl vs_base,%esi
	movl vs_top,%ebx
	subl %esi,%ebx
	sarl $2,%ebx
	testl %ebx,%ebx
	jg .L1415
	call too_few_arguments
.L1415:
	cmpl $1,%ebx
	jg .L1416
	movl vs_top,%eax
	movl $Cnil_body,(%eax)
	addl $4,vs_top
	incl %ebx
.L1416:
	cmpl $2,%ebx
	jle .L1417
	call too_many_arguments
.L1417:
	pushl 4(%esi)
	pushl (%esi)
	call print
	movl vs_base,%edx
	movl (%esi),%eax
	movl %eax,(%edx)
	movl vs_base,%ecx
	addl $4,%ecx
	movl %ecx,vs_top
	leal -8(%ebp),%esp
	popl %ebx
	popl %esi
	leave
	ret
.Lfe30:
	.size	 Lprint,.Lfe30-Lprint
	.align 4
.globl Lprinc
	.type	 Lprinc,@function
Lprinc:
	pushl %ebp
	movl %esp,%ebp
	pushl %esi
	pushl %ebx
	movl vs_base,%esi
	movl vs_top,%ebx
	subl %esi,%ebx
	sarl $2,%ebx
	testl %ebx,%ebx
	jg .L1429
	call too_few_arguments
.L1429:
	cmpl $1,%ebx
	jg .L1430
	movl vs_top,%eax
	movl $Cnil_body,(%eax)
	addl $4,vs_top
	incl %ebx
.L1430:
	cmpl $2,%ebx
	jle .L1431
	call too_many_arguments
.L1431:
	pushl 4(%esi)
	pushl (%esi)
	call princ
	movl vs_base,%edx
	movl (%esi),%eax
	movl %eax,(%edx)
	movl vs_base,%ecx
	addl $4,%ecx
	movl %ecx,vs_top
	leal -8(%ebp),%esp
	popl %ebx
	popl %esi
	leave
	ret
.Lfe31:
	.size	 Lprinc,.Lfe31-Lprinc
	.align 4
.globl Lwrite_char
	.type	 Lwrite_char,@function
Lwrite_char:
	pushl %ebp
	movl %esp,%ebp
	pushl %esi
	pushl %ebx
	movl vs_base,%esi
	movl vs_top,%ebx
	subl %esi,%ebx
	sarl $2,%ebx
	testl %ebx,%ebx
	jg .L1433
	call too_few_arguments
.L1433:
	cmpl $1,%ebx
	jg .L1434
	movl vs_top,%eax
	movl $Cnil_body,(%eax)
	addl $4,vs_top
	incl %ebx
.L1434:
	cmpl $2,%ebx
	jle .L1435
	call too_many_arguments
.L1435:
	movl 4(%esi),%eax
	cmpl $Cnil_body,%eax
	jne .L1436
	pushl sLAstandard_outputA
	jmp .L1582
	.align 4
.L1436:
	cmpl $Ct_body,%eax
	jne .L1437
	pushl sLAterminal_ioA
.L1582:
	call symbol_value
	movl %eax,4(%esi)
	addl $4,%esp
.L1437:
	pushl %esi
	call check_type_character
	leal 4(%esi),%eax
	pushl %eax
	call check_type_stream
	pushl 4(%esi)
	movl (%esi),%eax
	movzwl 4(%eax),%eax
	pushl %eax
	call writec_stream
	movl vs_base,%edx
	movl (%esi),%eax
	movl %eax,(%edx)
	movl vs_base,%ecx
	addl $4,%ecx
	movl %ecx,vs_top
	leal -8(%ebp),%esp
	popl %ebx
	popl %esi
	leave
	ret
.Lfe32:
	.size	 Lwrite_char,.Lfe32-Lwrite_char
	.align 4
.globl Lterpri
	.type	 Lterpri,@function
Lterpri:
	pushl %ebp
	movl %esp,%ebp
	pushl %esi
	pushl %ebx
	movl vs_base,%esi
	movl vs_top,%ebx
	subl %esi,%ebx
	sarl $2,%ebx
	jns .L1464
	call too_few_arguments
.L1464:
	testl %ebx,%ebx
	jg .L1465
	movl vs_top,%eax
	movl $Cnil_body,(%eax)
	addl $4,vs_top
	incl %ebx
.L1465:
	cmpl $1,%ebx
	jle .L1466
	call too_many_arguments
.L1466:
	pushl (%esi)
	call terpri
	movl vs_base,%eax
	movl $Cnil_body,(%eax)
	movl vs_base,%edx
	addl $4,%edx
	movl %edx,vs_top
	leal -8(%ebp),%esp
	popl %ebx
	popl %esi
	leave
	ret
.Lfe33:
	.size	 Lterpri,.Lfe33-Lterpri
	.align 4
.globl Lfinish_output
	.type	 Lfinish_output,@function
Lfinish_output:
	pushl %ebp
	movl %esp,%ebp
	pushl %esi
	pushl %ebx
	movl vs_base,%esi
	movl vs_top,%ebx
	subl %esi,%ebx
	sarl $2,%ebx
	jns .L1480
	call too_few_arguments
.L1480:
	testl %ebx,%ebx
	jg .L1481
	movl vs_top,%eax
	movl $Cnil_body,(%eax)
	addl $4,vs_top
	incl %ebx
.L1481:
	cmpl $1,%ebx
	jle .L1482
	call too_many_arguments
.L1482:
	movl (%esi),%eax
	cmpl $Cnil_body,%eax
	jne .L1483
	pushl sLAstandard_outputA
	jmp .L1583
	.align 4
.L1483:
	cmpl $Ct_body,%eax
	jne .L1484
	pushl sLAterminal_ioA
.L1583:
	call symbol_value
	movl %eax,(%esi)
	addl $4,%esp
.L1484:
	pushl %esi
	call check_type_stream
	pushl (%esi)
	call flush_stream
	movl vs_base,%eax
	movl $Cnil_body,(%eax)
	movl vs_base,%edx
	addl $4,%edx
	movl %edx,vs_top
	leal -8(%ebp),%esp
	popl %ebx
	popl %esi
	leave
	ret
.Lfe34:
	.size	 Lfinish_output,.Lfe34-Lfinish_output
	.align 4
.globl Lforce_output
	.type	 Lforce_output,@function
Lforce_output:
	pushl %ebp
	movl %esp,%ebp
	pushl %esi
	pushl %ebx
	movl vs_base,%esi
	movl vs_top,%ebx
	subl %esi,%ebx
	sarl $2,%ebx
	jns .L1487
	call too_few_arguments
.L1487:
	testl %ebx,%ebx
	jg .L1488
	movl vs_top,%eax
	movl $Cnil_body,(%eax)
	addl $4,vs_top
	incl %ebx
.L1488:
	cmpl $1,%ebx
	jle .L1489
	call too_many_arguments
.L1489:
	movl (%esi),%eax
	cmpl $Cnil_body,%eax
	jne .L1490
	pushl sLAstandard_outputA
	jmp .L1584
	.align 4
.L1490:
	cmpl $Ct_body,%eax
	jne .L1491
	pushl sLAterminal_ioA
.L1584:
	call symbol_value
	movl %eax,(%esi)
	addl $4,%esp
.L1491:
	pushl %esi
	call check_type_stream
	pushl (%esi)
	call flush_stream
	movl vs_base,%eax
	movl $Cnil_body,(%eax)
	movl vs_base,%edx
	addl $4,%edx
	movl %edx,vs_top
	leal -8(%ebp),%esp
	popl %ebx
	popl %esi
	leave
	ret
.Lfe35:
	.size	 Lforce_output,.Lfe35-Lforce_output
	.align 4
.globl Lclear_output
	.type	 Lclear_output,@function
Lclear_output:
	pushl %ebp
	movl %esp,%ebp
	pushl %esi
	pushl %ebx
	movl vs_base,%esi
	movl vs_top,%ebx
	subl %esi,%ebx
	sarl $2,%ebx
	jns .L1494
	call too_few_arguments
.L1494:
	testl %ebx,%ebx
	jg .L1495
	movl vs_top,%eax
	movl $Cnil_body,(%eax)
	addl $4,vs_top
	incl %ebx
.L1495:
	cmpl $1,%ebx
	jle .L1496
	call too_many_arguments
.L1496:
	movl (%esi),%eax
	cmpl $Cnil_body,%eax
	jne .L1497
	pushl sLAstandard_outputA
	jmp .L1585
	.align 4
.L1497:
	cmpl $Ct_body,%eax
	jne .L1498
	pushl sLAterminal_ioA
.L1585:
	call symbol_value
	movl %eax,(%esi)
	addl $4,%esp
.L1498:
	pushl %esi
	call check_type_stream
	movl vs_base,%eax
	movl $Cnil_body,(%eax)
	movl vs_base,%edx
	addl $4,%edx
	movl %edx,vs_top
	leal -8(%ebp),%esp
	popl %ebx
	popl %esi
	leave
	ret
.Lfe36:
	.size	 Lclear_output,.Lfe36-Lclear_output
	.align 4
.globl Lwrite_byte
	.type	 Lwrite_byte,@function
Lwrite_byte:
	pushl %ebp
	movl %esp,%ebp
	pushl %ebx
	movl vs_base,%ebx
	movl vs_top,%eax
	subl %ebx,%eax
	sarl $2,%eax
	cmpl $2,%eax
	je .L1501
	pushl $2
	call check_arg_failed
	addl $4,%esp
.L1501:
	movl (%ebx),%eax
	cmpb $1,(%eax)
	je .L1502
	pushl %eax
	pushl $1
	pushl $.LC91
	call FEerror
	addl $12,%esp
.L1502:
	leal 4(%ebx),%eax
	pushl %eax
	call check_type_stream
	pushl 4(%ebx)
	movl (%ebx),%eax
	pushl 4(%eax)
	call writec_stream
	movl vs_base,%edx
	movl (%ebx),%eax
	movl %eax,(%edx)
	movl vs_base,%ecx
	addl $4,%ecx
	movl %ecx,vs_top
	movl -4(%ebp),%ebx
	leave
	ret
.Lfe37:
	.size	 Lwrite_byte,.Lfe37-Lwrite_byte
	.align 4
.globl init_print
	.type	 init_print,@function
init_print:
	pushl %ebp
	movl %esp,%ebp
	movb $1,travel_push_type+11
	movb $1,travel_push_type+12
	movb $1,travel_push_type+15
	movb $1,travel_push_type
	movl $Cnil_body,PRINTstream
	pushl $PRINTstream
	call enter_mark_origin
	movl $1,PRINTescape
	movl $0,PRINTpretty
	movl $0,PRINTcircle
	movl $10,PRINTbase
	movl $0,PRINTradix
	movl sKupcase,%eax
	movl %eax,PRINTcase
	pushl $PRINTcase
	call enter_mark_origin
	movl $1,PRINTgensym
	movl $-1,PRINTlevel
	movl $-1,PRINTlength
	movl $0,PRINTarray
	movl $writec_PRINTstream,write_ch_fun
	leave
	ret
.Lfe38:
	.size	 init_print,.Lfe38-init_print
	.align 4
.globl write_string
	.type	 write_string,@function
write_string:
	pushl %ebp
	movl %esp,%ebp
	pushl %ebx
	movl 12(%ebp),%eax
	cmpl $Cnil_body,%eax
	jne .L1556
	pushl sLAstandard_outputA
	jmp .L1586
	.align 4
.L1556:
	cmpl $Ct_body,%eax
	jne .L1557
	pushl sLAterminal_ioA
.L1586:
	call symbol_value
	movl %eax,12(%ebp)
	addl $4,%esp
.L1557:
	leal 8(%ebp),%edx
	pushl %edx
	call check_type_string
	leal 12(%ebp),%eax
	pushl %eax
	call check_type_stream
	xorl %ebx,%ebx
	addl $8,%esp
	jmp .L1587
	.align 4
.L1562:
	pushl 12(%ebp)
	movl 12(%eax),%eax
	movsbl (%ebx,%eax),%eax
	pushl %eax
	call writec_stream
	addl $8,%esp
	incl %ebx
.L1587:
	movl 8(%ebp),%eax
	cmpl 16(%eax),%ebx
	jl .L1562
	pushl 12(%ebp)
	call flush_stream
	movl -4(%ebp),%ebx
	leave
	ret
.Lfe39:
	.size	 write_string,.Lfe39-write_string
	.align 4
.globl princ_str
	.type	 princ_str,@function
princ_str:
	pushl %ebp
	movl %esp,%ebp
	pushl 12(%ebp)
	call symbol_value
	movl %eax,12(%ebp)
	addl $4,%esp
	cmpl $Cnil_body,%eax
	jne .L1565
	pushl sLAstandard_outputA
	jmp .L1588
	.align 4
.L1565:
	cmpl $Ct_body,%eax
	jne .L1566
	pushl sLAterminal_ioA
.L1588:
	call symbol_value
	movl %eax,12(%ebp)
	addl $4,%esp
.L1566:
	leal 12(%ebp),%eax
	pushl %eax
	call check_type_stream
	pushl 12(%ebp)
	pushl 8(%ebp)
	call writestr_stream
	leave
	ret
.Lfe40:
	.size	 princ_str,.Lfe40-princ_str
	.align 4
.globl princ_char
	.type	 princ_char,@function
princ_char:
	pushl %ebp
	movl %esp,%ebp
	pushl %ebx
	movl 8(%ebp),%ebx
	pushl 12(%ebp)
	call symbol_value
	movl %eax,12(%ebp)
	addl $4,%esp
	cmpl $Cnil_body,%eax
	jne .L1569
	pushl sLAstandard_outputA
	jmp .L1589
	.align 4
.L1569:
	cmpl $Ct_body,%eax
	jne .L1570
	pushl sLAterminal_ioA
.L1589:
	call symbol_value
	movl %eax,12(%ebp)
	addl $4,%esp
.L1570:
	leal 12(%ebp),%eax
	pushl %eax
	call check_type_stream
	addl $4,%esp
	cmpl $10,%ebx
	jne .L1572
	pushl 12(%ebp)
	pushl $10
	call writec_stream
	pushl 12(%ebp)
	call flush_stream
	jmp .L1573
	.align 4
.L1572:
	pushl 12(%ebp)
	pushl %ebx
	call writec_stream
.L1573:
	movl -4(%ebp),%ebx
	leave
	ret
.Lfe41:
	.size	 princ_char,.Lfe41-princ_char
	.align 4
.globl pp
	.type	 pp,@function
pp:
	pushl %ebp
	movl %esp,%ebp
	pushl $Cnil_body
	pushl 8(%ebp)
	call princ
	pushl sLAstandard_outputA
	call symbol_value
	pushl %eax
	call flush_stream
	leave
	ret
.Lfe42:
	.size	 pp,.Lfe42-pp
	.align 4
.globl set_line_length
	.type	 set_line_length,@function
set_line_length:
	pushl %ebp
	movl %esp,%ebp
	movl 8(%ebp),%eax
	movl %eax,line_length
	leave
	ret
.Lfe43:
	.size	 set_line_length,.Lfe43-set_line_length
	.align 4
.globl init_print_function
	.type	 init_print_function,@function
init_print_function:
	pushl %ebp
	movl %esp,%ebp
	pushl $Lwrite
	pushl $.LC96
	call make_function
	pushl $Lprin1
	pushl $.LC97
	call make_function
	pushl $Lprint
	pushl $.LC98
	call make_function
	pushl $Lpprint
	pushl $.LC99
	call make_function
	addl $32,%esp
	pushl $Lprinc
	pushl $.LC100
	call make_function
	pushl $Lwrite_char
	pushl $.LC101
	call make_function
	pushl $Lwrite_string
	pushl $.LC102
	call make_function
	pushl $Lwrite_line
	pushl $.LC103
	call make_function
	addl $32,%esp
	pushl $Lterpri
	pushl $.LC104
	call make_function
	pushl $Lfresh_line
	pushl $.LC105
	call make_function
	pushl $Lfinish_output
	pushl $.LC106
	call make_function
	pushl $Lforce_output
	pushl $.LC107
	call make_function
	addl $32,%esp
	pushl $Lclear_output
	pushl $.LC108
	call make_function
	pushl $Lwrite_byte
	pushl $.LC109
	call make_function
	pushl $4353
	pushl $set_line_length
	pushl $.LC110
	call make_si_sfun
	leave
	ret
.Lfe44:
	.size	 init_print_function,.Lfe44-init_print_function
	.ident	"GCC: (GNU) egcs-2.91.66 19990314/Linux (egcs-1.1.2 release)"
