*/
static MNode* timeval6 (struct tm* v) {
- MNode* ans;
-
- ans = new MNode;
- ans->set_car (newMNode_num (v->tm_year + 1900));
- newMNodeCdr (ans);
- ans->set_car (newMNode_num (v->tm_mon + 1));
- newMNodeCdr (ans);
- ans->set_car (newMNode_num (v->tm_mday));
- newMNodeCdr (ans);
- ans->set_car (newMNode_num (v->tm_hour));
- newMNodeCdr (ans);
- ans->set_car (newMNode_num (v->tm_min));
- newMNodeCdr (ans);
- ans->set_car (newMNode_num (v->tm_sec));
-
- return ans;
+ MNodeList ans;
+
+ ans.append (newMNode_num (v->tm_year + 1900));
+ ans.append (newMNode_num (v->tm_mon + 1));
+ ans.append (newMNode_num (v->tm_mday));
+ ans.append (newMNode_num (v->tm_hour));
+ ans.append (newMNode_num (v->tm_min));
+ ans.append (newMNode_num (v->tm_sec));
+
+ return ans.release ();
}
static MNode* dateval4 (struct tm* v) {
- MNode* ans;
-
- ans = new MNode;
- ans->set_car (newMNode_num (v->tm_year + 1900));
- newMNodeCdr (ans);
- ans->set_car (newMNode_num (v->tm_mon + 1));
- newMNodeCdr (ans);
- ans->set_car (newMNode_num (v->tm_mday));
- newMNodeCdr (ans);
- ans->set_car (newMNode_num (v->tm_wday));
-
- return ans;
+ MNodeList ans;
+
+ ans.append (newMNode_num (v->tm_year + 1900));
+ ans.append (newMNode_num (v->tm_mon + 1));
+ ans.append (newMNode_num (v->tm_mday));
+ ans.append (newMNode_num (v->tm_wday));
+ return ans.release ();
}
static MNode* timeval3 (struct tm* v) {
- MNode* ans;
-
- ans = new MNode;
- ans->set_car (newMNode_num (v->tm_hour));
- newMNodeCdr (ans);
- ans->set_car (newMNode_num (v->tm_min));
- newMNodeCdr (ans);
- ans->set_car (newMNode_num (v->tm_sec));
+ MNodeList ans;
- return ans;
+ ans.append (newMNode_num (v->tm_hour));
+ ans.append (newMNode_num (v->tm_min));
+ ans.append (newMNode_num (v->tm_sec));
+ return ans.release ();
}
/*DOC: