Commit 8ff1e9d8 authored by Juergen Nickelsen's avatar Juergen Nickelsen

removed unused internal cXXr and cXXXr functions

parent 4dccb25e
......@@ -19,9 +19,8 @@ BEGIN {
@EXPORT = qw( intern cons list car cdr listp symbolp numberp stringp
consp symbol_name symbol_function functionp cxr type_of
rplaca rplacd fset function put get symbol_plist
specialp caar cadr cdar cddr caaar caadr cadar caddr cdaar
cdadr cddar cdddr function_type function_code symbol_value
set function_name is_nil all_symbols remprop
specialp cadr cddr function_type function_code
symbol_value set function_name is_nil all_symbols remprop
function_documentation is_t cons_count function_args
);
}
......@@ -161,66 +160,16 @@ sub list {
return cons($car, list(@obs));
}
sub caar {
my ($ob) = @_;
return $ob->{car}->{car} // $Nil;
}
sub cadr {
my ($ob) = @_;
return $ob->{cdr}->{car} // $Nil;
}
sub cdar {
my ($ob) = @_;
return $ob->{car}->{cdr} // $Nil;
}
sub cddr {
my ($ob) = @_;
return $ob->{cdr}->{cdr} // $Nil;
}
sub caaar {
my ($ob) = @_;
return $ob->{car}->{car}->{car} // $Nil;
}
sub caadr {
my ($ob) = @_;
return $ob->{cdr}->{car}->{car} // $Nil;
}
sub cadar {
my ($ob) = @_;
return $ob->{car}->{cdr}->{car} // $Nil;
}
sub caddr {
my ($ob) = @_;
return $ob->{cdr}->{cdr}->{car} // $Nil;
}
sub cdaar {
my ($ob) = @_;
return $ob->{car}->{car}->{cdr} // $Nil;
}
sub cdadr {
my ($ob) = @_;
return $ob->{cdr}->{car}->{cdr} // $Nil;
}
sub cddar {
my ($ob) = @_;
return $ob->{car}->{cdr}->{cdr} // $Nil;
}
sub cdddr {
my ($ob) = @_;
return $ob->{cdr}->{cdr}->{cdr} // $Nil;
}
sub car {
my ($ob) = @_;
return $ob->{car} // $Nil;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment