More merging for cleanup branch

Author: Bike

include/clasp/gctools/memoryManagement.h

@@ -63,7 +63,7 @@ struct ClaspInfo {
   core::LispHolder *_lispHolder;
 
   ClaspInfo(int argc, const char **argv, size_t stackMax)
-      : _argc(argc), _argv(argv), _stackMax(stackMax), _lispHolder(NULL), _mpiEnabled(false), _mpiRank(0), _mpiSize(1){};
+    : _argc(argc), _argv(argv), _stackMax(stackMax), _mpiEnabled(false), _mpiRank(0), _mpiSize(1), _lispHolder(NULL){};
 };
 }; // namespace gctools
 
@@ -755,7 +755,7 @@ class Header_s : public BaseHeader_s {
   };
 
   Header_s(Header_s *headerptr)
-      : BaseHeader_s(headerptr->_badge_stamp_wtag_mtag), _guard(GUARD1), _tail_start(0), _tail_size(0), _source(headerptr->_source),
+    : BaseHeader_s(headerptr->_badge_stamp_wtag_mtag), _tail_start(0), _tail_size(0), _guard(GUARD1), _source(headerptr->_source),
         _guard2(GUARD2), _dup_badge_stamp_wtag_mtag(headerptr->_badge_stamp_wtag_mtag){};
 
 #endif

src/core/lispStream.cc

@@ -1521,6 +1521,11 @@ static void illegal_op_void__T_sp_char(T_sp strm, claspCharacter c) {
   abort();
 }
 
+static cl_index illegal_op_vector(T_sp strm, T_sp data, cl_index start, cl_index end) {
+  printf("%s:%d Illegal op\n", __FILE__, __LINE__);
+  abort();
+}
+
 static claspCharacter illegal_op_char__T_sp(T_sp strm) {
   printf("%s:%d Illegal op\n", __FILE__, __LINE__ );
   abort();