Builtin function argument parsing

src/base.c

@@ -78,8 +78,12 @@ DEFUN(make_symbol, "make-symbol", (LispVal * name), "(name)",
     LispSymbol *obj = lisp_alloc_object(sizeof(LispSymbol), TYPE_SYMBOL);
     obj->name = name;
     obj->function = Qnil;
-    obj->value = Qunbound;
     obj->plist = Qnil;
+    if (KEYWORDP(obj)) {
+        obj->value = obj;
+    } else {
+        obj->value = Qunbound;
+    }
     return obj;
 }