;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/geh.el

(let ((clist '#1=(1 2 3 4 5 6 . #1#)))
  (defun next ()
    (pop clist) ))

;; (next)

(defun search-something (&optional query)
  "Search something by using QUERY."
  (interactive "sQuery: ")
  (unless (and (stringp query)
               (not (string= "" query)) )
    (setq query "default search") )
  (message query) )

;; (search-something "love")         ; love
;; (search-something)                ; default search
;; M-x search-something RET RET      ; default search
;; M-x search-something RET love RET ; love

(let ((some-var 2))

  (defun outer ()
    (setq some-var 4)
    (prog1
        (inner)
      (setq some-var 2) ))
  (declare-function outer nil)

  (defun inner ()
    some-var)
  (declare-function inner nil) )

;; (outer) ; 4
;; (inner) ; 2