Commit 52acffae authored by Marius Gerbershagen's avatar Marius Gerbershagen

ecl_make_symbol: call _ecl_intern with package name

    This is slightly more efficient and prevents an error message like
    "There exists no package with name NIL". Instead of NIL, the
    actual name is printed.
parent 6bb08c2d
......@@ -15,6 +15,7 @@
#include <ecl/ecl.h>
#include <ecl/ecl-inl.h>
#include <ecl/internal.h>
#include <string.h>
cl_object
ecl_symbol_package(cl_object s)
......@@ -127,8 +128,8 @@ ecl_make_keyword(const char *s)
cl_object
ecl_make_symbol(const char *s, const char *p)
{
cl_object package = ecl_find_package(p);
cl_object x = _ecl_intern(s, package);
ecl_def_ct_base_string(pack_name,p,strlen(p),,);
cl_object x = _ecl_intern(s, pack_name);
/* cl_export(x, keyword_package); this is implicit in ecl_intern() */
return x;
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment