removed unused internal cXXr and cXXXr functions

Sexp.pm

@@ -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;