<commit_before>(in-package :cl-user)
(defpackage cl21.core.array
  (:use :cl)
  (:import-from :alexandria
                :copy-array
                :define-constant)
  (:export :array
           :simple-array
           :vector
           :simple-vector
           :bit-vector
           :simple-bit-vector
           :make-array
           :adjust-array
           :adjustable-array-p
           :aref
           :array-dimension
           :array-dimensions
           :array-element-type
           :array-has-fill-pointer-p
           :array-displacement
           :array-in-bounds-p
           :array-rank
           :array-row-major-index
           :array-total-size
           :arrayp
           :fill-pointer
           :row-major-aref
           :upgraded-array-element-type
           :simple-vector-p
           :svref
           :vector
           :vector-pop
           :vector-push
           :vector-push-extend
           :vectorp
           :bit
           :sbit
           :bit-and
           :bit-andc1
           :bit-andc2
           :bit-eqv
           :bit-ior
           :bit-nand
           :bit-nor
           :bit-not
           :bit-orc1
           :bit-orc2
           :bit-xor
           :bit-vector-p
           :simple-bit-vector-p

           ;; Variables
           :+array-dimension-limit+
           :+array-rank-limit+
           :+array-total-size-limit+

           :copy-array))
(in-package :cl21.core.array)

(define-constant +array-dimension-limit+
  array-dimension-limit
  :documentation #.(documentation 'array-dimension-limit 'variable))

(define-constant +array-rank-limit+
  array-rank-limit
  :documentation #.(documentation 'array-rank-limit 'variable))

(define-constant +array-total-size-limit+
  array-total-size-limit
  :documentation #.(documentation 'array-total-size-limit 'variable))
<commit_msg>Change `vector' to return an adjustable array.<commit_after>(in-package :cl-user)
(defpackage cl21.core.array
  (:use :cl)
  (:shadow :vector)
  (:import-from :alexandria
                :copy-array
                :define-constant)
  (:export :array
           :simple-array
           :vector
           :simple-vector
           :bit-vector
           :simple-bit-vector
           :make-array
           :adjust-array
           :adjustable-array-p
           :aref
           :array-dimension
           :array-dimensions
           :array-element-type
           :array-has-fill-pointer-p
           :array-displacement
           :array-in-bounds-p
           :array-rank
           :array-row-major-index
           :array-total-size
           :arrayp
           :fill-pointer
           :row-major-aref
           :upgraded-array-element-type
           :simple-vector-p
           :svref
           :vector
           :vector-pop
           :vector-push
           :vector-push-extend
           :vectorp
           :bit
           :sbit
           :bit-and
           :bit-andc1
           :bit-andc2
           :bit-eqv
           :bit-ior
           :bit-nand
           :bit-nor
           :bit-not
           :bit-orc1
           :bit-orc2
           :bit-xor
           :bit-vector-p
           :simple-bit-vector-p

           ;; Variables
           :+array-dimension-limit+
           :+array-rank-limit+
           :+array-total-size-limit+

           :copy-array))
(in-package :cl21.core.array)

(define-constant +array-dimension-limit+
  array-dimension-limit
  :documentation #.(documentation 'array-dimension-limit 'variable))

(define-constant +array-rank-limit+
  array-rank-limit
  :documentation #.(documentation 'array-rank-limit 'variable))

(define-constant +array-total-size-limit+
  array-total-size-limit
  :documentation #.(documentation 'array-total-size-limit 'variable))

(defun vector (&rest objects)
  (let ((vec (make-array 0 :adjustable t :fill-pointer 0)))
    (loop for obj in objects
          do (vector-push-extend obj vec))
    vec))

{'fraction_non_alphanumeric': 0.11466260781329274, 'fraction_numerical': 0.0045662100456621, 'mean_word_length': 1.4384662956091527, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, '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': '191612', 'n_tokens_mistral': 1201, 'n_tokens_neox': 1144, 'n_words': 198}