Commit 8ff1e9d8 authored Jul 04, 2015 by Juergen Nickelsen

removed unused internal cXXr and cXXXr functions

parent 4dccb25e

Sexp.pm

+2 −53

Original line number	Diff line number	Diff line
		@@ -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;