<commit_before>;; A BibTeX re-implementation in Common Lisp
;; Copyright 2001, 2002 <NAME> <<EMAIL>>
;;
;; This code is free software; you can redistribute it and/or
;; modify it under the terms of version 2.1 of the GNU Lesser 
;; General Public License as published by the Free Software 
;; Foundation or any later version, as clarified by the preamble 
;; found in COPYING-preamble.txt. This preamble is in the style
;; of the Franz Inc. preamble at http://opensource.franz.com/preamble.html
;; with names and copyright holders altered accordingly.

(defpackage :kpathsea
  (:use :common-lisp)
  (:export #:find-file))

(defpackage :bibtex-runtime
  (:use :common-lisp)
  #+(or allegro clisp) (:shadow #:variable)
  (:export #:*bib-macros* #:*bib-database* #:*bib-entries*
	   #:*bib-entry* #:*bib-preamble* #:*bib-style*
	   #:*bib-files* #:*cite-all-entries* #:*cite-keys*
	   #:*bib-entry-type-functions* #:*min-crossrefs*
	   #:read-aux-file #:read-bib-database #:cited-bib-entries
	   #:write-bib-entry
	   #:read-all-bib-files-and-compute-bib-entries
	   #:bibtex-name #:make-bibtex-name #:bibtex-name-first
	   #:bibtex-name-von #:bibtex-name-last #:bibtex-name-jr
	   #:*bibtex-split-initials* #:parse-bibtex-name #:parse-bibtex-name-list
	   #:*bibtex-long-token-length* #:*bibtex-long-name-length*
	   #:format-bibtex-name
	   #:format-nth-bibtex-name #:num-bibtex-names #:bibtex-substring
	   #:add-period-unless-sentence-end
	   #:whitespace-p #:empty-field-p #:bibtex-string-purify
	   #:bibtex-string-downcase #:bibtex-string-upcase #:bibtex-string-titledowncase
	   #:bibtex-string-prefix #:bibtex-string-width
	   #:bib-warn #:bib-warn* #:bib-error #:bib-fatal
	   #:*err-count* #:*history*
	   #:+spotless-history+ #:+warning-message+ #:+error-message+ #:+fatal-message+
	   #:*bbl-output* #:*bbl-min-print-line* #:*bbl-max-print-line*
	   #:bbl-print #:bbl-terpri #:with-bbl-output))

(defpackage :bibtex-compiler
  (:use :common-lisp :bibtex-runtime)
  #+(or allegro clisp) (:shadow #:variable)
  (:export #:compile-bst-file #:bibtex
	   #:*bibtex-styles* #:*allow-load-lisp-bibtex-style*
	   #:register-bibtex-style #:define-bibtex-style #:find-bibtex-style
	   #:lisp-bibtex-style #:interpreted-bibtex-style))<commit_msg>(packages bibtex-runtime, bibtex-compiler): Always shadow #:variable, as it is a standard CL symbol.<commit_after>;; A BibTeX re-implementation in Common Lisp
;; Copyright 2001, 2002 <NAME> <<EMAIL>>
;;
;; This code is free software; you can redistribute it and/or
;; modify it under the terms of version 2.1 of the GNU Lesser 
;; General Public License as published by the Free Software 
;; Foundation or any later version, as clarified by the preamble 
;; found in COPYING-preamble.txt. This preamble is in the style
;; of the Franz Inc. preamble at http://opensource.franz.com/preamble.html
;; with names and copyright holders altered accordingly.

(defpackage :kpathsea
  (:use :common-lisp)
  (:export #:find-file))

(defpackage :bibtex-runtime
  (:use :common-lisp)
  (:shadow #:variable)
  (:export #:*bib-macros* #:*bib-database* #:*bib-entries*
	   #:*bib-entry* #:*bib-preamble* #:*bib-style*
	   #:*bib-files* #:*cite-all-entries* #:*cite-keys*
	   #:*bib-entry-type-functions* #:*min-crossrefs*
	   #:read-aux-file #:read-bib-database #:cited-bib-entries
	   #:write-bib-entry
	   #:read-all-bib-files-and-compute-bib-entries
	   #:bibtex-name #:make-bibtex-name #:bibtex-name-first
	   #:bibtex-name-von #:bibtex-name-last #:bibtex-name-jr
	   #:*bibtex-split-initials* #:parse-bibtex-name #:parse-bibtex-name-list
	   #:*bibtex-long-token-length* #:*bibtex-long-name-length*
	   #:format-bibtex-name
	   #:format-nth-bibtex-name #:num-bibtex-names #:bibtex-substring
	   #:add-period-unless-sentence-end
	   #:whitespace-p #:empty-field-p #:bibtex-string-purify
	   #:bibtex-string-downcase #:bibtex-string-upcase #:bibtex-string-titledowncase
	   #:bibtex-string-prefix #:bibtex-string-width
	   #:bib-warn #:bib-warn* #:bib-error #:bib-fatal
	   #:*err-count* #:*history*
	   #:+spotless-history+ #:+warning-message+ #:+error-message+ #:+fatal-message+
	   #:*bbl-output* #:*bbl-min-print-line* #:*bbl-max-print-line*
	   #:bbl-print #:bbl-terpri #:with-bbl-output))

(defpackage :bibtex-compiler
  (:use :common-lisp :bibtex-runtime)
  (:shadow #:variable)
  (:export #:compile-bst-file #:bibtex
	   #:*bibtex-styles* #:*allow-load-lisp-bibtex-style*
	   #:register-bibtex-style #:define-bibtex-style #:find-bibtex-style
	   #:lisp-bibtex-style #:interpreted-bibtex-style))
{'fraction_non_alphanumeric': 0.17816979051819185, 'fraction_numerical': 0.004410143329658214, 'mean_word_length': 4.189931350114416, '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': '709737', 'n_tokens_mistral': 1874, 'n_tokens_neox': 1629, 'n_words': 341}