Permalink
Browse files

CL_read_line is obsolete

  • Loading branch information...
gnooth committed Dec 22, 2010
1 parent 81011e3 commit 83805fad340dd4e1879ec1587731372d19d55445
Showing with 0 additions and 27 deletions.
  1. +0 −1 kernel/initialize.cpp
  2. +0 −1 kernel/primitives.hpp
  3. +0 −25 kernel/streams.cpp
View
@@ -413,7 +413,6 @@ void initialize_lisp()
ADD_PRIMITIVE(S_read_char, CL_read_char, 0, 4);
ADD_PRIMITIVE(S_read_char_no_hang, CL_read_char_no_hang, 0, 4);
ADD_PRIMITIVE(S_read_delimited_list, CL_read_delimited_list, 1, 3);
- ADD_TEMPORARY(S_read_line, CL_read_line, 0, 4);
ADD_PRIMITIVE(S_read_preserving_whitespace, CL_read_preserving_whitespace, 0, 4);
ADD_PRIMITIVE(S_readtable_case, CL_readtable_case, 1, 1);
ADD_PRIMITIVE(S_readtablep, CL_readtablep, 1, 1);
View
@@ -329,7 +329,6 @@ extern Value CL_read(unsigned int numargs, Value args[]);
extern Value CL_read_char(unsigned int numargs, Value args[]);
extern Value CL_read_char_no_hang(unsigned int numargs, Value args[]);
extern Value CL_read_delimited_list(unsigned int numargs, Value args[]);
-extern Value CL_read_line(unsigned int numargs, Value args[]);
extern Value CL_read_preserving_whitespace(unsigned int numargs, Value args[]);
extern Value CL_readtable_case(Value arg);
extern Value CL_readtablep(Value arg);
View
@@ -258,31 +258,6 @@ Value SYS_ansi_stream_read_line(Value streamarg, Value eof_error_p, Value eof_va
return check_ansi_stream(streamarg)->read_line(eof_error_p != NIL, eof_value);
}
-// ### read-line &optional input-stream eof-error-p eof-value recursive-p => line, missing-newline-p
-Value CL_read_line(unsigned int numargs, Value args[])
-{
- if (numargs <= 4)
- {
- AnsiStream * stream;
- if (numargs > 0)
- stream = check_ansi_stream(SYS_designator_input_stream(args[0]));
- else
- stream = check_ansi_stream(current_thread()->symbol_value(S_standard_input));
- switch (numargs)
- {
- case 0:
- case 1:
- return stream->read_line(true, NIL);
- case 2:
- return stream->read_line(args[1] != NIL, NIL);
- case 3:
- case 4:
- return stream->read_line(args[1] != NIL, args[2]);
- }
- }
- return wrong_number_of_arguments(S_read_line, numargs, 0, 4);
-}
-
// ### read-char &optional input-stream eof-error-p eof-value recursive-p => char
Value CL_read_char(unsigned int numargs, Value args[])
{

0 comments on commit 83805fa

Please sign in to comment.