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

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

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