← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/ecl/intrepid

« back to all changes in this revision

Viewing changes to src/c/symbol.d

  • Committer: Bazaar Package Importer
  • Author(s): Peter Van Eynde
  • Date: 2006-06-21 09:21:21 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20060621092121-txz1f21lj0wh0f67
Tags: 0.9h-20060617-1
* New upstream version
* Updated standards version without real changes. 

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/c/symbol.d
17
17
#include <ecl/ecl.h>
18
18
 
19
19
/******************************* ------- ******************************/
 
20
/* FIXME! CURRENTLY SYMBOLS ARE RESTRICTED TO HAVE NON-UNICODE NAMES */
20
21
 
21
22
static void FEtype_error_plist(cl_object x) /*__attribute__((noreturn))*/;
22
23
 
24
25
cl_make_symbol(cl_object str)
25
26
{
26
27
        assert_type_string(str);
 
28
        str = si_copy_to_simple_base_string(str);
27
29
        @(return make_symbol(str))
28
30
}
29
31
 
34
36
 
35
37
        x = cl_alloc_object(t_symbol);
36
38
        /* FIXME! Should we copy? */
37
 
        x->symbol.name = copy_simple_string(st);
 
39
        x->symbol.name = si_copy_to_simple_base_string(st);
38
40
        x->symbol.dynamic = 0;
39
41
        ECL_SET(x,OBJNULL);
40
42
        SYM_FUN(x) = Cnil;
71
73
FEtype_error_plist(cl_object x)
72
74
{
73
75
        cl_error(9, @'simple-type-error', @':format-control',
74
 
                 make_constant_string("Not a valid property list ~D"),
 
76
                 make_constant_base_string("Not a valid property list ~D"),
75
77
                 @':format-arguments', cl_list(1, x),
76
78
                 @':expected-type', @'list',
77
79
                 @':datum', x);
249
251
        bool increment;
250
252
@
251
253
        t = type_of(prefix);
252
 
        if (t == t_string) {
 
254
        if (t == t_base_string) {
253
255
                counter = SYM_VAL(@'*gensym-counter*');
254
256
                increment = 1;
255
257
        } else if (t == t_fixnum || t == t_bignum) {
276
278
        cl_object output, s;
277
279
        int intern_flag;
278
280
@
279
 
        assert_type_string(prefix);
 
281
        assert_type_base_string(prefix);
280
282
        pack = si_coerce_to_package(pack);
281
283
ONCE_MORE:
282
284
        output = ecl_make_string_output_stream(64);