mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-22 04:21:16 -08:00
Code Issues Projects Releases Packages Wiki Activity

ecl_make_symbol: call _ecl_intern with package name

Browse source 
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.
This commit is contained in:
Marius Gerbershagen 2018-11-27 19:47:44 +01:00
parent 6bb08c2d81
commit 52acffae4a
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/symbol.d
View file

@ -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;
}