;; -*- lexical-binding: nil; -*-
;; This file:
;;   https://anggtwu.net/2025-modern/03-lambda-named-plist.el.html
;;   https://anggtwu.net/2025-modern/03-lambda-named-plist.el
;;           (find-angg "2025-modern/03-lambda-named-plist.el")
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;;
;; The sexp below makes `cl-prin1' print lambdas as "named plists".

(cl-defmethod cl-print-object ((object interpreted-function) stream)
  (prin1 (ee-closure-to-named-plist object) stream))

;; Test:
;;   (defun foo (a b) "Docstr" (interactive (list 2 3)) a (+ a b))
;;   (setq o (symbol-function 'foo))
;;   (find-2a nil '(find-clprin2 o))