<commit_before>;;;; -*- lisp -*-

(in-package :it.bese.arnesi)

;;;; * Lambda-lists

(defun extract-argument-names (lambda-list &key allow-specializers)
  "Returns a list of symbols representing the names of the
  variables bound by the lambda list LAMBDA-LIST."
  (mapcan (lambda (argument)
	    (let1 vars '()
	      (dolist (slot-name '(name supplied-p-parameter))
		(when (and (slot-exists-p argument slot-name)
			   (slot-boundp   argument slot-name))
		 (push (slot-value argument slot-name) vars)))
	      (nreverse vars)))
	  (walk-lambda-list lambda-list nil '() :allow-specializers allow-specializers)))<commit_msg>Fix bug with EXTRACT-ARGUMENT-NAMES, thanks to <NAME><commit_after>;;;; -*- lisp -*-

(in-package :it.bese.arnesi)

;;;; * Lambda-lists

(defun extract-argument-names (lambda-list &key allow-specializers)
  "Returns a list of symbols representing the names of the
  variables bound by the lambda list LAMBDA-LIST."
  (mapcan (lambda (argument)
	    (let1 vars '()
	      (dolist (slot-name '(name supplied-p-parameter))
		(awhen (and (slot-exists-p argument slot-name)
			    (slot-boundp   argument slot-name)
			    (slot-value    argument slot-name))
		  (push it vars)))
	      (nreverse vars)))
	  (walk-lambda-list lambda-list nil '() :allow-specializers allow-specializers)))
{'fraction_non_alphanumeric': 0.14296636085626913, 'fraction_numerical': 0.0015290519877675841, 'mean_word_length': 3.513793103448276, 'pattern_counts': {'":': 0, '<': 4, '<?xml version=': 0, '>': 4, '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': '1961134', 'n_tokens_mistral': 444, 'n_tokens_neox': 416, 'n_words': 118}