<commit_before>;;;;; Transpiler: TRE to JavaScript
;;;;; Copyright (c) 2008-2009 <NAME> <<EMAIL>>

(defun arrayp (x) (instanceof x *array))

(defun list-array (x)
  (let a (make-array)
    (dolist (i x a)
      (a.push i))))

(defun array-list (x &optional (n 0))
  (declare type array x)
  (when (%%%< n x.length)
    (cons (aref x n)
		  (array-list x (1+ n)))))<commit_msg>ARRAY-LIST: Don't check if argument is an array - fscks up with HTMLCollection.<commit_after>;;;;; Transpiler: TRE to JavaScript
;;;;; Copyright (c) 2008-2009 <NAME> <<EMAIL>>

(defun arrayp (x) (instanceof x *array))

(defun list-array (x)
  (let a (make-array)
    (dolist (i x a)
      (a.push i))))

(defun array-list (x &optional (n 0))
  ;(declare type array x) ; fscks up with *h-t-m-l-collection
  (when (%%%< n x.length)
    (cons (aref x n)
		  (array-list x (1+ n)))))
{'fraction_non_alphanumeric': 0.19181286549707602, 'fraction_numerical': 0.023391812865497075, 'mean_word_length': 3.435233160621762, 'pattern_counts': {'":': 0, '<': 11, '<?xml version=': 0, '>': 9, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '4096776', 'n_tokens_mistral': 364, 'n_tokens_neox': 340, 'n_words': 112}