fixed mudules in alists

bin/alist.slime

@@ -139,7 +139,7 @@
                 (else (plist-get-intern (cddr props) prop))))
         (plist-get-intern props prop)))
 
-    (define (set plist prop value)
+    (define (set! plist prop value)
       (mutate plist (set-type! (pair (pair prop (pair value (first plist))) ())
                                :plist)))
 

bin/tests/alists.slime

@@ -66,7 +66,7 @@
 (assert      (ds::plist::prop-exists? p :key1))
 (assert (not (ds::plist::prop-exists? p :key2)))
 
-(plist-set! p :key2 'value2)
+(ds::plist::set! p :key2 'value2)
 ;; p == ((:key2 value2,
 ;;        :key1 value1))
 

src/error.cpp

@@ -16,7 +16,7 @@ proc create_error(const char* c_file_name, int c_file_line, Lisp_Object* type, S
 
     delete_error();
     if (Globals::breaking_on_errors) {
-        debug_break();
+        // debug_break();
     }
     // visualize_lisp_machine();
 

src/testing.cpp

@@ -597,7 +597,7 @@ proc run_all_tests() -> bool {
 
     bool result = true;
 
-    Memory::init(4096 * 2000, 1024 * 32, 4096 * 16 * 10);
+    Memory::init(4096 * 4096, 1024 * 512, 4096 * 16 * 100);
     Environment* root_env = get_root_environment();
     Environment* user_env = Memory::create_child_environment(root_env);
     push_environment(user_env);
@@ -633,17 +633,16 @@ proc run_all_tests() -> bool {
 
     printf("\n-- Test Files --\n");
 
+    invoke_test_script("sicp");
     invoke_test_script("evaluation_of_default_args");
     invoke_test_script("alists");
     invoke_test_script("case_and_cond");
     invoke_test_script("lexical_scope");
     invoke_test_script("class_macro");
     invoke_test_script("import_and_load");
-    invoke_test_script("sicp");
     invoke_test_script("macro_expand");
     invoke_test_script("automata");
 
-
     return result;
 }