/[gcl]/gcl/o/let.c
ViewVC logotype

Diff of /gcl/o/let.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by camm, Sun Sep 14 02:43:07 2003 UTC revision 1.6 by camm, Tue Oct 7 21:06:33 2003 UTC
# Line 220  Fflet(object args) Line 220  Fflet(object args)
220                  def = MMcar(def_list);                  def = MMcar(def_list);
221                  if (endp(def) || endp(MMcdr(def)) ||                  if (endp(def) || endp(MMcdr(def)) ||
222                      type_of(MMcar(def)) != t_symbol)                      type_of(MMcar(def)) != t_symbol)
223                      /* FIXME need t read environment for setf functions
224                         && !setf_fn_form(MMcar(def)) */
225                         (type_of(MMcar(def))!=t_cons || type_of(MMcadar(def))!=t_symbol
226                          || MMcadar(def)==Cnil
227                          || !endp(MMcddar(def)))))
228                          FEerror("~S~%\                          FEerror("~S~%\
229  is an illegal function definition in FLET.",  is an illegal function definition in FLET.",
230                                  1, def);                                  1, def);

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26