(JAVA::OCT-DIGITP-OF-CHAR-CODE
 (4 4 (:REWRITE DEFAULT-<-2))
 (4 4 (:REWRITE DEFAULT-<-1))
 (2 2 (:REWRITE DEFAULT-CHAR-CODE))
 )
(JAVA::OCT-DIGIT-LISTP-OF-CHARS=>NATS
 (35 10 (:REWRITE JAVA::OCT-DIGIT-LISTP-WHEN-NOT-CONSP))
 (30 5 (:REWRITE STR::OCT-DIGIT-CHAR-LIST*P-OF-CDR-WHEN-OCT-DIGIT-CHAR-LIST*P))
 (20 20 (:REWRITE JAVA::OCT-DIGIT-LISTP-WHEN-SUBSETP-EQUAL))
 (18 3 (:REWRITE STR::OCT-DIGIT-CHAR-P-OF-CAR-WHEN-OCT-DIGIT-CHAR-LIST*P))
 (15 15 (:REWRITE DEFAULT-CDR))
 (15 5 (:REWRITE STR::OCT-DIGIT-CHAR-P-WHEN-NONZERO-OCT-DIGIT-CHAR-P))
 (10 10 (:TYPE-PRESCRIPTION STR::NONZERO-OCT-DIGIT-CHAR-P$INLINE))
 (10 10 (:REWRITE DEFAULT-CAR))
 (8 8 (:REWRITE CONSP-OF-CHARS=>NATS))
 (7 7 (:REWRITE DEFAULT-CHAR-CODE))
 (1 1 (:REWRITE SUBSETP-TRANS2))
 (1 1 (:REWRITE SUBSETP-TRANS))
 )
