Fix srv-response-body-set! in library (lispkit http).

Author: objecthub

Sources/LispKit/Primitives/HTTPServerLibrary.swift

@@ -906,7 +906,7 @@ public final class HTTPServerLibrary: NativeLibrary {
 
   private func srvResponseBodySet(expr: Expr, obj: Expr, contentType: Expr?) throws -> Expr {
     try self.httpServerResponse(from: expr).response.body =
-      self.srvResponseBody(from: obj, contentType: contentType)
+      self.srvResponseBody(from: obj, contentType: contentType?.isFalse ?? true ? nil : contentType)
     return .void
   }
 

Sources/LispKitRepl/AppInfo.swift

@@ -43,7 +43,7 @@ public struct AppInfo {
   public static let buildDate = { () -> String in
     let dateFormatter = DateFormatter()
     dateFormatter.dateFormat = "yyyy-MM-dd HH:mm"
-    return dateFormatter.string(from: Date(timeIntervalSince1970: 1732059709))
+    return dateFormatter.string(from: Date(timeIntervalSince1970: 1732271904))
   }()
   public static let buildAnnotation = " (\(AppInfo.buildDate))"
 }