#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
int /*<<< orphan*/ make_symbol(char *);
void init_special_forms(void) {
  make_symbol("quote");
  make_symbol("set!");
  make_symbol("define");
  make_symbol("ok");
  make_symbol("if");
  make_symbol("cond");
  make_symbol("else");
  make_symbol("begin");
  make_symbol("lambda");
  make_symbol("let");
  make_symbol("and");
  make_symbol("or");
}


x86 assembly (clang, -O0):
<init_special_forms>:
push   %rbp
mov    %rsp,%rbp
lea    0xee5(%rip),%rdi
call   1030 <make_symbol@plt>
lea    0xedf(%rip),%rdi
call   1030 <make_symbol@plt>
lea    0xed8(%rip),%rdi
call   1030 <make_symbol@plt>
lea    0xed3(%rip),%rdi
call   1030 <make_symbol@plt>
lea    0xeca(%rip),%rdi
call   1030 <make_symbol@plt>
lea    0xec1(%rip),%rdi
call   1030 <make_symbol@plt>
lea    0xeba(%rip),%rdi
call   1030 <make_symbol@plt>
lea    0xeb3(%rip),%rdi
call   1030 <make_symbol@plt>
lea    0xead(%rip),%rdi
call   1030 <make_symbol@plt>
lea    0xea8(%rip),%rdi
call   1030 <make_symbol@plt>
lea    0xea0(%rip),%rdi
call   1030 <make_symbol@plt>
lea    0xe98(%rip),%rdi
call   1030 <make_symbol@plt>
pop    %rbp
ret

x86 assembly (clang, -O2):
<init_special_forms>:
push   %rax
lea    0xee8(%rip),%rdi
call   1030 <make_symbol@plt>
lea    0xee2(%rip),%rdi
call   1030 <make_symbol@plt>
lea    0xedb(%rip),%rdi
call   1030 <make_symbol@plt>
lea    0xed6(%rip),%rdi
call   1030 <make_symbol@plt>
lea    0xecd(%rip),%rdi
call   1030 <make_symbol@plt>
lea    0xec4(%rip),%rdi
call   1030 <make_symbol@plt>
lea    0xebd(%rip),%rdi
call   1030 <make_symbol@plt>
lea    0xeb6(%rip),%rdi
call   1030 <make_symbol@plt>
lea    0xeb0(%rip),%rdi
call   1030 <make_symbol@plt>
lea    0xeab(%rip),%rdi
call   1030 <make_symbol@plt>
lea    0xea3(%rip),%rdi
call   1030 <make_symbol@plt>
lea    0xe9b(%rip),%rdi
pop    %rax
jmp    1030 <make_symbol@plt>

LLVM IR (-O0):
@.str = [6 x i8] c"quote\00"
@.str.1 = [5 x i8] c"set!\00"
@.str.2 = [7 x i8] c"define\00"
@.str.3 = [3 x i8] c"ok\00"
@.str.4 = [3 x i8] c"if\00"
@.str.5 = [5 x i8] c"cond\00"
@.str.6 = [5 x i8] c"else\00"
@.str.7 = [6 x i8] c"begin\00"
@.str.8 = [7 x i8] c"lambda\00"
@.str.9 = [4 x i8] c"let\00"
@.str.10 = [4 x i8] c"and\00"
@.str.11 = [3 x i8] c"or\00"
define void @init_special_forms() {
%1 = call i32 @make_symbol(i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str, i64 0, i64 0))
%2 = call i32 @make_symbol(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.1, i64 0, i64 0))
%3 = call i32 @make_symbol(i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str.2, i64 0, i64 0))
%4 = call i32 @make_symbol(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.3, i64 0, i64 0))
%5 = call i32 @make_symbol(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.4, i64 0, i64 0))
%6 = call i32 @make_symbol(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.5, i64 0, i64 0))
%7 = call i32 @make_symbol(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.6, i64 0, i64 0))
%8 = call i32 @make_symbol(i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.7, i64 0, i64 0))
%9 = call i32 @make_symbol(i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str.8, i64 0, i64 0))
%10 = call i32 @make_symbol(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.9, i64 0, i64 0))
%11 = call i32 @make_symbol(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.10, i64 0, i64 0))
%12 = call i32 @make_symbol(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.11, i64 0, i64 0))
ret void
}

LLVM IR (-O2):
@.str = [6 x i8] c"quote\00"
@.str.1 = [5 x i8] c"set!\00"
@.str.2 = [7 x i8] c"define\00"
@.str.3 = [3 x i8] c"ok\00"
@.str.4 = [3 x i8] c"if\00"
@.str.5 = [5 x i8] c"cond\00"
@.str.6 = [5 x i8] c"else\00"
@.str.7 = [6 x i8] c"begin\00"
@.str.8 = [7 x i8] c"lambda\00"
@.str.9 = [4 x i8] c"let\00"
@.str.10 = [4 x i8] c"and\00"
@.str.11 = [3 x i8] c"or\00"
define void @init_special_forms() {
%1 = tail call i32 @make_symbol(i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str, i64 0, i64 0))
%2 = tail call i32 @make_symbol(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.1, i64 0, i64 0))
%3 = tail call i32 @make_symbol(i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str.2, i64 0, i64 0))
%4 = tail call i32 @make_symbol(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.3, i64 0, i64 0))
%5 = tail call i32 @make_symbol(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.4, i64 0, i64 0))
%6 = tail call i32 @make_symbol(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.5, i64 0, i64 0))
%7 = tail call i32 @make_symbol(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.6, i64 0, i64 0))
%8 = tail call i32 @make_symbol(i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.7, i64 0, i64 0))
%9 = tail call i32 @make_symbol(i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str.8, i64 0, i64 0))
%10 = tail call i32 @make_symbol(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.9, i64 0, i64 0))
%11 = tail call i32 @make_symbol(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.10, i64 0, i64 0))
%12 = tail call i32 @make_symbol(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.11, i64 0, i64 0))
ret void
}