<commit_before>
(get 'alizarin 'color)

(setf (get 'alizarin 'color) 'red)

(get 'alizarin 'color)

(setf (get 'alizarin 'transparency) 'high)

(symbol-plist 'alizarin)<commit_msg>8.2-property-lists<commit_after>;; In CL every symbol has a property-list, or `plist'

(get 'alizarin 'color)
(get 'alizarin 'color "green")

(setf (get 'alizarin 'color) 'red)

(get 'alizarin 'color)

(setf (get 'alizarin 'transparency) 'high)

(symbol-plist 'alizarin)

;; package -> name       -> "FOO"
;;         -> package    -> hosting
;;         -> value      0x11223344
;;         -> function   #<function>
;;         -> plist      (color red)

;; Notice that property-list are not represented as assoc-lists,
;; though they are used the same way.  It uses `eql' to compare keys.
;; 
;; In CL, property-list aren't used very much. They have largely been
;; superseded by hash tables.
{'fraction_non_alphanumeric': 0.1446613088404133, 'fraction_numerical': 0.012629161882893225, 'mean_word_length': 3.3383084577114426, 'pattern_counts': {'":': 0, '<': 4, '<?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': '6425667', 'n_tokens_mistral': 314, 'n_tokens_neox': 302, 'n_words': 98}