More bugs

clasp-developers · Sep 4, 2024 · 835962f · 835962f
1 parent 6d58dd0
commit 835962f
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/core/numbers.cc b/src/core/numbers.cc
@@ -197,15 +197,15 @@ CL_DEFUN Real_sp cl__max(Real_sp max, List_sp nums) {
 CL_NAME("TWO-ARG-+-FIXNUM-FIXNUM");
 CL_UNWIND_COOP(true);
 DOCGROUP(clasp);
-CL_DEFUN Number_sp two_arg__PLUS_FF(Fixnum fa, Fixnum fb) { return Integer_O::create(static_cast<gc::Fixnum>(fa + fb)); }
+CL_DEFUN Number_sp two_arg__PLUS_FF(Fixnum fa, Fixnum fb) { return make_number(fa + fb); }
 
 CL_NAME("TWO-ARG-+");
 CL_UNWIND_COOP(true);
 DOCGROUP(clasp);
 CL_DEFUN Number_sp contagion_add(Number_sp na, Number_sp nb) {
   MATH_DISPATCH_BEGIN(na, nb) {
   case_Fixnum_v_Fixnum:
-    return two_arg__PLUS_FF(na.unsafe_fixnum(), nb.unsafe_fixnum());
+    return make_number(na.unsafe_fixnum() + nb.unsafe_fixnum());
   case_Fixnum_v_Bignum:
     return core__next_fadd(gc::As_unsafe<Bignum_sp>(nb), na.unsafe_fixnum());
   case_Fixnum_v_Ratio:

diff --git a/src/core/unixfsys.cc b/src/core/unixfsys.cc
@@ -1117,7 +1117,7 @@ CL_DEFUN Number_sp cl__file_write_date(T_sp pathspec) {
   String_sp filename = coerce_to_posix_filename(pathname);
   struct stat filestatus;
   if (safe_stat((char*)filename->get_path_string().c_str(), &filestatus) >= 0)
-    return make_number(filestatus.st_mtime) * make_number(24 * 60 * 60 * (17 + 365 * 70));
+    return make_number(filestatus.st_mtime) * make_number(2208988800);
   return nil<Number_O>();
 }