<commit_before>;;;; Copyright (c) 2011-2016 <NAME> <<EMAIL>>
;;;; This code is licensed under the MIT license.

(defpackage :cold-generator
  (:use :cl :iterate :nibbles)
  (:export #:make-image
           #:allocate
           #:word
           #:array-header
           #:make-value
           #:function-reference
           #:symbol-address
           #:cold-symbol-value
           #:compile-lap-function))

(defpackage :cold-generator.x86-64
  (:use :cl :cold-generator)
  (:export #:*undefined-function-thunk*
           #:*closure-trampoline*
           #:*funcallable-instance-trampoline*
           #:create-low-level-interrupt-support))

(defpackage :cold-generator.arm64
  (:use :cl :cold-generator)
  (:export #:*undefined-function-thunk*
           #:*closure-trampoline*
           #:*funcallable-instance-trampoline*))

(in-package :cold-generator)

(defparameter *supervisor-source-files*
  '("supervisor/entry.lisp"
    ;"supervisor/cpu.lisp"
    "supervisor/arm64/cpu.lisp"
    "supervisor/interrupts.lisp"
    ;"supervisor/x86-64/interrupts.lisp"
    "supervisor/arm64/interrupts.lisp"
    "supervisor/arm64/gic.lisp"
    "supervisor/debug.lisp"
    ;"supervisor/serial.lisp"
    "supervisor/uart.lisp"
    "supervisor/disk.lisp"
    "supervisor/ata.lisp"
    "supervisor/ahci.lisp"
    "supervisor/thread.lisp"
    ;"supervisor/x86-64/thread.lisp"
    "supervisor/arm64/thread.lisp"
    "supervisor/sync.lisp"
    "supervisor/physical.lisp"
    "supervisor/snapshot.lisp"
    "supervisor/store.lisp"
    "supervisor/pager.lisp"
    "supervisor/arm64/pager.lisp"
    "supervisor/time.lisp"
    "supervisor/ps2.lisp"
    ;"supervisor/video.lisp"
    "supervisor/pci.lisp"
    "supervisor/virtio.lisp"
    "supervisor/virtio-pci.lisp"
    "supervisor/virtio-mmio.lisp"
    "supervisor/virtio-net.lisp"
    "supervisor/virtio-block.lisp"
    "supervisor/profiler.lisp"
    "supervisor/support.lisp"
    "supervisor/rtl8168.lisp"
    "supervisor/acpi.lisp"
    "supervisor/arm64/platform.lisp"
    "runtime/runtime.lisp"
    "runtime/runtime-arm64.lisp"
    "runtime/allocate.lisp"
    "runtime/numbers.lisp"
    "runtime/string.lisp"
    "runtime/array.lisp"
    "runtime/struct.lisp"
    "runtime/symbol.lisp"
    "runtime/runtime2.lisp"))

(defparameter *source-files*
  '("system/cold-start.lisp"
    "system/defstruct.lisp"
    "system/early-cons.lisp"
    "system/sequence.lisp"
    "system/runtime-array.lisp"
    "system/array.lisp"
    "system/printer.lisp"
    "system/stuff.lisp"
    "system/runtime-support.lisp"
    "system/type.lisp"
    "system/setf.lisp"
    "system/cas.lisp"
    "system/string.lisp"
    "system/hash-table.lisp"
    ;"system/runtime-numbers.lisp"
    "system/numbers.lisp"
    "system/data-types.lisp"
    "system/gc.lisp"
    "system/room.lisp"
    "system/reader.lisp"
    "system/character.lisp"
    "system/backquote.lisp"
    "system/format.lisp"
    "system/cons-compiler-macros.lisp"
    "system/defmacro.lisp"
    "system/basic-macros.lisp"
    "system/parse.lisp"
    "system/describe.lisp"
    "system/load.lisp"
    "system/time.lisp"
))

(defparameter *special-source-files*
  '(("system/packages.lisp" sys.int::*package-system*)))
<commit_msg>Split float & bignum assembly functions out of runtime-numbers.lisp<commit_after>;;;; Copyright (c) 2011-2016 <NAME> <<EMAIL>>
;;;; This code is licensed under the MIT license.

(defpackage :cold-generator
  (:use :cl :iterate :nibbles)
  (:export #:make-image
           #:allocate
           #:word
           #:array-header
           #:make-value
           #:function-reference
           #:symbol-address
           #:cold-symbol-value
           #:compile-lap-function))

(defpackage :cold-generator.x86-64
  (:use :cl :cold-generator)
  (:export #:*undefined-function-thunk*
           #:*closure-trampoline*
           #:*funcallable-instance-trampoline*
           #:create-low-level-interrupt-support))

(defpackage :cold-generator.arm64
  (:use :cl :cold-generator)
  (:export #:*undefined-function-thunk*
           #:*closure-trampoline*
           #:*funcallable-instance-trampoline*))

(in-package :cold-generator)

(defparameter *supervisor-source-files*
  '("supervisor/entry.lisp"
    ;"supervisor/cpu.lisp"
    "supervisor/arm64/cpu.lisp"
    "supervisor/interrupts.lisp"
    ;"supervisor/x86-64/interrupts.lisp"
    "supervisor/arm64/interrupts.lisp"
    "supervisor/arm64/gic.lisp"
    "supervisor/debug.lisp"
    ;"supervisor/serial.lisp"
    "supervisor/uart.lisp"
    "supervisor/disk.lisp"
    "supervisor/ata.lisp"
    "supervisor/ahci.lisp"
    "supervisor/thread.lisp"
    ;"supervisor/x86-64/thread.lisp"
    "supervisor/arm64/thread.lisp"
    "supervisor/sync.lisp"
    "supervisor/physical.lisp"
    "supervisor/snapshot.lisp"
    "supervisor/store.lisp"
    "supervisor/pager.lisp"
    "supervisor/arm64/pager.lisp"
    "supervisor/time.lisp"
    "supervisor/ps2.lisp"
    ;"supervisor/video.lisp"
    "supervisor/pci.lisp"
    "supervisor/virtio.lisp"
    "supervisor/virtio-pci.lisp"
    "supervisor/virtio-mmio.lisp"
    "supervisor/virtio-net.lisp"
    "supervisor/virtio-block.lisp"
    "supervisor/profiler.lisp"
    "supervisor/support.lisp"
    "supervisor/rtl8168.lisp"
    "supervisor/acpi.lisp"
    "supervisor/arm64/platform.lisp"
    "runtime/runtime.lisp"
    "runtime/runtime-arm64.lisp"
    "runtime/allocate.lisp"
    "runtime/numbers.lisp"
    "runtime/string.lisp"
    "runtime/array.lisp"
    "runtime/struct.lisp"
    "runtime/symbol.lisp"
    "runtime/runtime2.lisp"))

(defparameter *source-files*
  '("system/cold-start.lisp"
    "system/defstruct.lisp"
    "system/early-cons.lisp"
    "system/sequence.lisp"
    "system/runtime-array.lisp"
    "system/array.lisp"
    "system/printer.lisp"
    "system/stuff.lisp"
    "system/runtime-support.lisp"
    "system/type.lisp"
    "system/setf.lisp"
    "system/cas.lisp"
    "system/string.lisp"
    "system/hash-table.lisp"
    "system/runtime-numbers.lisp"
    "system/numbers.lisp"
    "system/data-types.lisp"
    "system/gc.lisp"
    "system/room.lisp"
    "system/reader.lisp"
    "system/character.lisp"
    "system/backquote.lisp"
    "system/format.lisp"
    "system/cons-compiler-macros.lisp"
    "system/defmacro.lisp"
    "system/basic-macros.lisp"
    "system/parse.lisp"
    "system/describe.lisp"
    "system/load.lisp"
    "system/time.lisp"
))

(defparameter *special-source-files*
  '(("system/packages.lisp" sys.int::*package-system*)))

{'fraction_non_alphanumeric': 0.15617751662285448, 'fraction_numerical': 0.012989021184475027, 'mean_word_length': 2.9414990859232177, 'pattern_counts': {'":': 0, '<': 9, '<?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': '5800022', 'n_tokens_mistral': 2536, 'n_tokens_neox': 2397, 'n_words': 275}