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

« back to all changes in this revision

Viewing changes to src/c/reference.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:
134
134
        @(return ((SYM_VAL(sym) == OBJNULL)? Cnil : Ct))
135
135
}
136
136
 
137
 
@(defun macro_function (sym &optional env)
138
 
        cl_object fd;
139
 
@
140
 
        if (!SYMBOLP(sym))
141
 
                FEtype_error_symbol(sym);
142
 
        if (Null(env))
143
 
                fd = Cnil;
144
 
        else {
145
 
                fd = search_macro(sym, env);
146
 
                if (!Null(fd)) @(return fd)
147
 
        }
148
 
        if (sym->symbol.mflag)
149
 
                fd = SYM_FUN(sym);
150
 
        @(return fd)
151
 
@)
152
 
 
153
137
cl_object
154
138
cl_special_operator_p(cl_object form)
155
139
{