<commit_before>(cl:in-package #:sicl-extrinsic-hir-interpreter)

(defclass enter-instruction (cleavir-ir:enter-instruction)
  ((%owned-variables :initarg :owned-variables :reader owned-variables)))

(defun lexical-value (lexical-variable process)
  (loop for table in (static-env (stack process))
	do (multiple-value-bind (value present-p)
	       (gethash lexical-variable table)
	     (when present-p
	       (return-from lexical-value value))))
  (error "unknown variable ~s" lexical-variable))<commit_msg>Set the value of a lexical variable in the current process.<commit_after>(cl:in-package #:sicl-extrinsic-hir-interpreter)

(defclass enter-instruction (cleavir-ir:enter-instruction)
  ((%owned-variables :initarg :owned-variables :reader owned-variables)))

(defun lexical-value (lexical-variable process)
  (loop for table in (static-env (stack process))
	do (multiple-value-bind (value present-p)
	       (gethash lexical-variable table)
	     (when present-p
	       (return-from lexical-value value))))
  (error "unknown variable ~s" lexical-variable))

(defun (setf lexical-value) (value lexical-variable process)
  (loop for table in (static-env (stack process))
	do (multiple-value-bind (old-value present-p)
	       (gethash lexical-variable table)
	     (declare (ignore old-value))
	     (when present-p
	       (setf (gethash lexical-variable table) value)
	       (return-from lexical-value)))))
{'fraction_non_alphanumeric': 0.12579505300353358, 'fraction_numerical': 0.0, 'mean_word_length': 4.149090909090909, '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': '4666855', 'n_tokens_mistral': 463, 'n_tokens_neox': 438, 'n_words': 117}