 }
 
 object *sp_formillis (object *args, object *env) {
+  if (args == NULL) error2(FORMILLIS, noargument);
   object *param = first(args);
   unsigned long start = millis();
   unsigned long now, total = 0;

object *fn_dacreference (object *args, object *env) {
  (void) env;
  object *arg = first(args);
#if defined(CPU_AVR128DA48)
  int ref = checkinteger(DACREFERENCE, arg);
  DACReference(ref);
#endif
  return arg;
}


  return temp;
}

inline void myfree (object *obj) {
  car(obj) = NULL;
  cdr(obj) = Freelist;
  Freelist = obj;
