   { string10, sp_quote, 1, 1 },
   { string11, sp_defun, 0, 127 },
   { string12, sp_defvar, 2, 2 },
-  { string13, sp_setq, 2, 2 },
+  { string13, sp_setq, 2, 126 },
   { string14, sp_loop, 0, 127 },
   { string15, sp_return, 0, 127 },
   { string16, sp_push, 2, 2 },
   { string17, sp_pop, 1, 1 },
   { string18, sp_incf, 1, 2 },
   { string19, sp_decf, 1, 2 },
-  { string20, sp_setf, 2, 2 },
+  { string20, sp_setf, 2, 126 },
   { string21, sp_dolist, 1, 127 },
   { string22, sp_dotimes, 1, 127 },
   { string23, sp_trace, 0, 1 },

    }
    line = read(glibrary);
  }
  return nil; 
}

object *fn_listlibrary (object *args, object *env) {

  if (args == NULL) return nil;
  object *more = cdr(args);
  while (more != NULL) {
    object *result = eval(car(args),env);
    if (tstflag(RETURNFLAG)) return result;
    args = more;
    more = cdr(args);
  }
