Parent Directory | Revision Log | 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."), |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |