added args checking to prefix functions

pkgs/racket-test-core/tests/racket/list.rktl

@@ -615,6 +615,7 @@
 (test '((a b c d) () ()) split*-list '(a b c d) '(a b c d))
 (test '((1 2) (3 4) (4 3)) split*-list '(1 2 3 4) '(1 2 4 3) =)
 (err/rt-test (split*-list '() '() #f))
+(err/rt-test (take-common-prefix 1 1))
 
 ;; ---------- remf / remf* ----------
 

racket/collects/racket/list.rkt

@@ -287,6 +287,10 @@
 ;; lists, and return a matching number of values.
 
 (define (internal-split-common-prefix as bs same? keep-prefix? name)
+  (unless (list? as)
+    (raise-argument-error name "list?" as))
+  (unless (list? bs)
+    (raise-argument-error name "list?" bs))
   (unless (and (procedure? same?)
                (procedure-arity-includes? same? 2))
     (raise-argument-error name "(any/c any/c . -> . any/c)" same?))