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

Diff of /gcl/o/error.c

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

revision 1.24 by camm, Wed Sep 7 02:53:40 2005 UTC revision 1.25 by camm, Sun Sep 18 02:48:58 2005 UTC
# Line 385  void Line 385  void
385  FEinvalid_function(object obj)  FEinvalid_function(object obj)
386  {  {
387  #ifdef ANSI_COMMON_LISP  #ifdef ANSI_COMMON_LISP
388      FEwrong_type_argument(obj,sLfunction);      TYPE_ERROR(obj,sLfunction);
389  #else  #else
390      Icall_error_handler(sKinvalid_function,      Icall_error_handler(sKinvalid_function,
391                       make_simple_string("~S is invalid as a function."),                       make_simple_string("~S is invalid as a function."),

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

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