comparison src/lread.c @ 364:f4767dc8fff4

*** empty log message ***

363:f4f9b557d934

    abort ();
}

#endif /* standalone */

init_read ()
{
  char *normal = PATH_LOADSEARCH;
  Lisp_Object normal_path;

  /* Warn if dirs in the *standard* path don't exist.  */
  normal_path = decode_env_path ("", normal);
  for (; !NULL (normal_path); normal_path = XCONS (normal_path)->cdr)
    {
      Lisp_Object dirfile;
      dirfile = Fcar (normal_path);
      if (!NULL (dirfile))

	    printf ("Warning: lisp library (%s) does not exist.\n",
		    XSTRING (Fcar (normal_path))->data);
	}
    }

  Vvalues = Qnil;

  Vload_path = decode_env_path ("EMACSLOADPATH", normal);
#ifndef CANNOT_DUMP
  if (!NULL (Vpurify_flag))
    Vload_path = Fcons (build_string ("../lisp"), Vload_path);
#endif /* not CANNOT_DUMP */
  load_in_progress = 0;
}

void
syms_of_read ()
{
  defsubr (&Sread);
  defsubr (&Sread_from_string);
  defsubr (&Sintern);
  defsubr (&Sintern_soft);

364:f4767dc8fff4

    abort ();
}

#endif /* standalone */

init_lread ()
{
  char *normal = PATH_LOADSEARCH;
  Lisp_Object normal_path;

  /* Compute the default load-path.  */
#ifndef CANNOT_DUMP
  /* If running a dumped Emacs in which load-path was set before dumping
     to a nonstandard value, use that value.  */
  if (initialized
      && !(XTYPE (Vload_path) == Lisp_Cons
	   && XTYPE (XCONS (Vload_path)->car) == Lisp_String
	   && !strcmp (XSTRING (XCONS (Vload_path)->car)->data, "../lisp")))
    normal_path = Vload_path;
  else
#endif
    {
      normal_path = decode_env_path ("", normal);

      Vload_path = normal_path;
    }

  /* Warn if dirs in the *standard* path don't exist.  */
  for (; !NULL (normal_path); normal_path = XCONS (normal_path)->cdr)
    {
      Lisp_Object dirfile;
      dirfile = Fcar (normal_path);
      if (!NULL (dirfile))

	    printf ("Warning: lisp library (%s) does not exist.\n",
		    XSTRING (Fcar (normal_path))->data);
	}
    }

  if (egetenv ("EMACSLOADPATH"))
    Vload_path = decode_env_path ("EMACSLOADPATH", normal);
#ifndef CANNOT_DUMP
  if (!NULL (Vpurify_flag))
    Vload_path = Fcons (build_string ("../lisp"), Vload_path);
#endif

  Vvalues = Qnil;

  load_in_progress = 0;
}

void
syms_of_lread ()
{
  defsubr (&Sread);
  defsubr (&Sread_from_string);
  defsubr (&Sintern);
  defsubr (&Sintern_soft);