<commit_before>;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-

(in-package #:clutter)

;;;
;;; Combiners
;;;

(defstruct clutter-operator function name)
(defun make-operator (variables body env)
  (make-clutter-operator 
   :function
   (lambda (*denv* &rest values)
     (let ((env (make-env env)))
       (loop for var in variables
             for value in values
             do (extend env (cs "var") var value))<commit_msg>Corrected an overlooked bit of leftover lisp-n.<commit_after>;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-

(in-package #:clutter)

;;;
;;; Combiners
;;;

(defstruct clutter-operator function name)
(defun make-operator (variables body env)
  (make-clutter-operator 
   :function
   (lambda (*denv* &rest values)
     (let ((env (make-env env)))
       (loop for var in variables
             for value in values
             do (extend env var value))
{'fraction_non_alphanumeric': 0.1452894438138479, 'fraction_numerical': 0.0, 'mean_word_length': 2.92, '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': '1412715', 'n_tokens_mistral': 287, 'n_tokens_neox': 278, 'n_words': 89}