(setq t1 (run-with-timer 0 (* 60 60) (lambda () (setq org-agenda-start-day (format-time-string "%Y-%m-01")))))

(cancel-timer t1)

(setq org-agenda-start-day (format-time-string "%Y-%m-01"))

(lem:current-global-mode)

(defun f (x y) (declare (optimize (speed 3) (safety 0) (debug 0))) (+ x y))
(disassemble #'f)

(switch ("XY" :test 'equal)
  ("XY" "an X and a Y")
  ("AB" "an A and a B"))

'(1,2,3)

'(1 2 3)

(loop for x being the element of #(1 3 5)
            do (print x))

(list ...)

MyObject myObj = new MyObject();
myObj.Field = "fieldValue";

(slot-value my-penis 'erect-size) => "15 cm"
(setf (slot-value penis 'erect-size) 5)
;; if you had an accessor named erect-size
(erect-size my-penis) => "5 cm"
(setf (erect-size my-penis) "40 cm") 
(erect-size my-penis) => "40 cm"
You can of course make your own getters, and for settings stuff you need to make new setf expander/method for that class.
As I said, lisp just makes it explicit that Obj.field is actually (field obj)

#Instead of 
[{"rock": {"y": 5, "x": 3}}, {"stick": {"y": 10, "x": 2}}]

#You have
names = ["rock", "stick"]
ys = [5, 10]
xs = [3 2]

for f in $*(:r) {
  (format "%s %s.mp3 -> tmp.flac" (format-time-string "%T") f)
  ffmpeg -hide_banner -loglevel warning -y -i $f.mp3 -vn -c:a flac tmp.flac

  (format "%s tmp.flac -> %s.opus" (format-time-string "%T") f)
  opusenc --bitrate 32 tmp.flac $f.opus

  (when nil
    (delete-file (format "%s.mp3" f))
    (format "%s deleted %s.mp3" (format-time-string "%T") f))
}

(when (file-exists-p "tmp.flac")
  (delete-file "tmp.flac")
  (format "%s deleted tmp.flac" (format-time-string "%T")))

* (defun f () '(1 2 3))
* (defvar a (f))
* (setf (nth 1 a) 0)
* a
(1 0 3)
* (f)
(1 0 3)

char *f()
{
    return "damn";
}

int main()
{
    printf("%s\n", f());
    f()[0] = 'z';
    printf("%s\n", f());
    return 0;
}

$ tcc test.c
$ ./a.out
damn
zamn

;; Org-Roam configuration
(after! org
  (setq org-roam-directory "~/Notes/")
  (setq org-roam-index-file "~/Notes/inbox.org")
  (org-roam-db-autosync-mode)
  (setq org-hide-emphasis-markers t))

;; ;; (setq org-agenda-files (directory-files-recursively "~/Notes" "\\.org$"))
;; or
;; (setq org-agenda-files '("~/Notes/"
;;                          "~/Notes/daily/"))

(concatenate 'string (write-to-string (truename ".")) "file.txt")
 -> "#p\"/home/user/currentdir/\"file.txt"

(merge-pathnames (truename ".") #P"file.txt")

(add-hook 'eshell-mode-hook
          (lambda () (buffer-face-set :family "IosevkaComfyWideFixed")))

bindsym $mod+Return exec emacsclient -c -n -e '(eshell)'

(defun path-kind (path)
  (multiple-value-bind (exists error ino mode)
      (sb-unix:unix-lstat path)
    (declare (ignore error ino))
    (when exists
      (case (logand mode sb-unix:s-ifmt)
    (#.sb-unix:s-ifreg :file)
    (#.sb-unix:s-ifdir :directory)))))

* (path-kind ".")
:directory
* (path-kind "./init.el")
:file

char a[] = "damn";

char *f()
{
    return a;
}

int main()
{
    printf("%s\n", f());
    f()[0] = 'z';
    printf("%s\n", f());
    return 0;
}

(keymap-global-set "C-S-<up>" 'windmove-up)
(keymap-global-set "C-S-<down>" 'windmove-down)
(keymap-global-set "C-S-<left>" 'windmove-left)
(keymap-global-set "C-S-<right>" 'windmove-right)

(keymap-set org-mode-map "C-S-<up>" 'windmove-up)
(keymap-set org-mode-map "C-S-<down>" 'windmove-down)
(keymap-set org-mode-map "C-S-<left>" 'windmove-left)
(keymap-set org-mode-map "C-S-<right>" 'windmove-right)

fun main() {
    fun factorial(n: Integer) = loop iter(k = n, total = 1) {
        if (k <= 1) {
            total
        } else {
            recur@iter(k - 1, k * total)
        }
    }
    println("Hello, again!")
}

(setq custom-file "~/.custom.el")
(load custom-file)

(defun ensure-file-exist (name)
  "Create a file NAME if it doesn't exist."
  (unless (file-exists-p name)
    (write-region "" nil name)))

* (sqrt -1)
#C(0.0 1.0)
* (expt 2 256)
115792089237316195423570985008687907853269984665640564039457584007913129639936
* (+ 1/3 1/3 1/3)
1

symbol

'symbol

:symbol

M-x xah-wolfram-mode

[:this :is :a :list]
[:this
 :is
 :a
 :very
 :long
 :list] ; Note the singular space as indentation.
(defn some-function-name [arg1 arg2 arg3]
  (println arg1)
  (println arg2)
  (println arg3)) ; Note the PRINTLN calls are indented by two spaces, they form the function's body.
(defn some-function-name
      "Some documentation."
      [arg1 arg2 arg3] ; Note the six spaces forming the non-body arguments of the function.
  (println arg1)
  (println arg2)
  (println arg3))