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

(cl-defmethod cl-print-object ((object interpreted-function) stream)
  (prin1 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))
;; See:
;;   (find-1stclassvideo-links "2025modern")
;;   (find-2025modernvideo "8:55" "vector-like lambda")
;;   (find-2025modernhsubs "8:55" "vector-like lambda")
;;   https://anggtwu.net/2025-modern.html#remove-method