;;AUTOLOAD: list-partial-equal
;;AUTODOC: list-partial-equal "checks that a list begins by the same elements"
;;(list-partial-equal l1 l2)
;;(list-partial-equal '(a b) '(a b c d)) is true

(defun list-partial-equal (l1 l2)
  (not (catch 'Differ (dotimes (n (length l1))
	(if (/= (getn l1 n) (getn l2 n)) (throw 'Differ t))
))))
