<commit_before>(defpackage :lunula
  ;; Do not import the entire COMMON-LISP package.  Only import
  ;; primitive things that will not be redifened in the LUNULA
  ;; package.  We want to be explicit when we use anything else from
  ;; COMMON-LISP so we can easlily identify it later and implement it
  ;; in the compiler.
  (:import-from :common-lisp
                #:defpackage #:in-package #:*package* #:find-package #:export
                #:nil #:t
                #:quote
                #:otherwise
                #:eq #:char-equal #:char= #:string-equal #:string=
                #:&rest #:&body #:&key #:&optional #:&whole #:&aux
                #:eval-when #:progn #:if
                #:lambda #:declare #:ignore #:inline
                #:fdefinition #:macro-function
                #:block #:return
                #:macrolet
                #:throw #:catch
                #:apply #:funcall
                #:and #:or
                #:cons #:car #:cdr
                #:rplaca #:rplacd
                #:= #:< #:> #:<= #:>= #:/=
                #:+ #:- #:* #:/ #:mod
                #:zerop
                #:consp #:numberp #:characterp #:symbolp #:stringp #:arrayp #:vectorp
                #:type-of
                #:aref #:char #:svref
                #:assert #:error
                #:setq #:setf
                #:loop ;; only simple loop supported for now
                #:make-symbol #:intern #:symbol-value #:symbol-name
                #:string #:vector
                #:defvar #:defparameter
                #:array-dimension
                #:make-string
                #:make-array
                #:truncate
                #:values
                #:multiple-value-call
                )
  (:export #:defpackage #:in-package #:*package* #:find-package #:export
           #:nil #:t
           #:quote
           #:eq #:eql #:equal #:equalp #:char-equal #:char= #:string=
           #:not #:null
           #:&rest #:&body #:&key #:&optional #:&whole #:&aux
           #:eval-when
           #:progn #:prog1
           #:if #:cond #:when #:unless #:case #:otherwise
           #:lambda #:declare #:ignore
           #:flet #:labels
           #:fdefinition #:macro-function
           #:block #:return
           #:throw #:catch
           #:apply #:funcall
           #:and #:or
           #:cons #:car #:cdr
           #:atom #:listp
           #:rplaca #:rplacd
           #:list #:vector
           #:list*
           #:= #:< #:> #:<= #:>= #:/=
           #:+ #:- #:* #:/
           #:1+ #:1-
           #:zerop
           #:consp #:numberp #:characterp #:symbolp #:stringp #:arrayp #:vectorp
           #:type-of
           #:aref #:char #:svref
           #:assert #:error
           #:defun #:defmacro
           #:nth #:elt
           #:let #:let*
           #:setq #:setf #:psetq
           #:loop #:do #:do*
           #:length
           #:member
           #:position
           #:complement
           #:make-symbol #:intern #:symbol-value #:symbol-name
           #:string
           #:concatenate
           #:princ-to-string
           #:defvar
           #:reverse #:nreverse
           #:map #:mapcar #:mapc
           #:reduce
           #:array-dimension
           #:make-string
           #:make-array
           #:code-char #:char-code
           #:truncate
           #:read-char #:peek-char #:write-char
           #:*standard-input* #:*standard-output*
           #:*read-table* #:*read-base* #:readtable-case
           #:set-macro-character #:get-macro-character
           #:first #:rest #:second #:third #:last #:butlast
           #:append #:nconc #:nreconc
           #:copy-list
           #:subseq
           #:some #:every #:notevery #:notany
           #:digit-char #:digit-char-p
           #:read #:read-from-string
           #:macroexpand-1
           #:values #:values-list
           #:multiple-value-call #:multiple-value-bind #:multiple-value-list
           #:assoc
           #:char-upcase #:char-downcase
           #:abs #:expt
           #:plusp #:minusp
           #:upper-case-p #:lower-case-p #:both-case-p
           #:destructuring-bind
           #:defstruct))

(defpackage :lunula-user
  (:use :lunula))

;;;; common lisp special forms
;; block      let*                  return-from
;; catch      load-time-value       setq
;; eval-when  locally               symbol-macrolet
;; flet       macrolet              tagbody
;; function   multiple-value-call   the
;; go         multiple-value-prog1  throw
;; if         progn                 unwind-protect
;; labels     progv
;; let        quote                <commit_msg>Added UNREAD-CHAR and WITH-INPUT-FROM-STRING to package<commit_after>(defpackage :lunula
  ;; Do not import the entire COMMON-LISP package.  Only import
  ;; primitive things that will not be redifened in the LUNULA
  ;; package.  We want to be explicit when we use anything else from
  ;; COMMON-LISP so we can easlily identify it later and implement it
  ;; in the compiler.
  (:import-from :common-lisp
                #:defpackage #:in-package #:*package* #:find-package #:export
                #:nil #:t
                #:quote
                #:otherwise
                #:eq #:char-equal #:char= #:string-equal #:string=
                #:&rest #:&body #:&key #:&optional #:&whole #:&aux
                #:eval-when #:progn #:if
                #:lambda #:declare #:ignore #:inline
                #:fdefinition #:macro-function
                #:block #:return
                #:macrolet
                #:throw #:catch
                #:apply #:funcall
                #:and #:or
                #:cons #:car #:cdr
                #:rplaca #:rplacd
                #:= #:< #:> #:<= #:>= #:/=
                #:+ #:- #:* #:/ #:mod
                #:zerop
                #:consp #:numberp #:characterp #:symbolp #:stringp #:arrayp #:vectorp
                #:type-of
                #:aref #:char #:svref
                #:assert #:error
                #:setq #:setf
                #:loop ;; only simple loop supported for now
                #:make-symbol #:intern #:symbol-value #:symbol-name
                #:string #:vector
                #:defvar #:defparameter
                #:array-dimension
                #:make-string
                #:make-array
                #:truncate
                #:values
                #:multiple-value-call
                )
  (:export #:defpackage #:in-package #:*package* #:find-package #:export
           #:nil #:t
           #:quote
           #:eq #:eql #:equal #:equalp #:char-equal #:char= #:string=
           #:not #:null
           #:&rest #:&body #:&key #:&optional #:&whole #:&aux
           #:eval-when
           #:progn #:prog1
           #:if #:cond #:when #:unless #:case #:otherwise
           #:lambda #:declare #:ignore
           #:flet #:labels
           #:fdefinition #:macro-function
           #:block #:return
           #:throw #:catch
           #:apply #:funcall
           #:and #:or
           #:cons #:car #:cdr
           #:atom #:listp
           #:rplaca #:rplacd
           #:list #:vector
           #:list*
           #:= #:< #:> #:<= #:>= #:/=
           #:+ #:- #:* #:/
           #:1+ #:1-
           #:zerop
           #:consp #:numberp #:characterp #:symbolp #:stringp #:arrayp #:vectorp
           #:type-of
           #:aref #:char #:svref
           #:assert #:error
           #:defun #:defmacro
           #:nth #:elt
           #:let #:let*
           #:setq #:setf #:psetq
           #:loop #:do #:do*
           #:length
           #:member
           #:position
           #:complement
           #:make-symbol #:intern #:symbol-value #:symbol-name
           #:string
           #:concatenate
           #:princ-to-string
           #:defvar
           #:reverse #:nreverse
           #:map #:mapcar #:mapc
           #:reduce
           #:array-dimension
           #:make-string
           #:make-array
           #:code-char #:char-code
           #:truncate
           #:read-char #:peek-char #:write-char #:unread-char
           #:*standard-input* #:*standard-output*
           #:*read-table* #:*read-base* #:readtable-case
           #:set-macro-character #:get-macro-character
           #:first #:rest #:second #:third #:last #:butlast
           #:append #:nconc #:nreconc
           #:copy-list
           #:subseq
           #:some #:every #:notevery #:notany
           #:digit-char #:digit-char-p
           #:read #:read-from-string #:with-input-from-string
           #:macroexpand-1
           #:values #:values-list
           #:multiple-value-call #:multiple-value-bind #:multiple-value-list
           #:assoc
           #:char-upcase #:char-downcase
           #:abs #:expt
           #:plusp #:minusp
           #:upper-case-p #:lower-case-p #:both-case-p
           #:destructuring-bind
           #:defstruct))

(defpackage :lunula-user
  (:use :lunula))

;;;; common lisp special forms
;; block      let*                  return-from
;; catch      load-time-value       setq
;; eval-when  locally               symbol-macrolet
;; flet       macrolet              tagbody
;; function   multiple-value-call   the
;; go         multiple-value-prog1  throw
;; if         progn                 unwind-protect
;; labels     progv
;; let        quote                
{'fraction_non_alphanumeric': 0.15164858769197723, 'fraction_numerical': 0.001073998496402105, 'mean_word_length': 1.391371340523883, 'pattern_counts': {'":': 0, '<': 11, '<?xml version=': 0, '>': 11, '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': '4071649', 'n_tokens_mistral': 3061, 'n_tokens_neox': 2677, 'n_words': 647}