https://www.timesofisrael.com/arab-official-trump-envoy-sway...
(send some-window :set-edge 10 10 40 40)
as you can imagine a very heavily object oriented code becomes littered with sends. LOOPS seems to make it a little bit less painful by making ← an equivalent of send, so above can be written as (← SomeWindow SetEdge 10 10 40 40)
this is obviously only a margin improvement. (set-edge some-window 10 10 40 40) (defun explode (x)
(mapcar (lambda (x)
(intern (char-to-string x)))
(string-to-list (prin1 x))))
turning character into symbol seems natural, because then you are reducing your needed function space even more. I'm surprised the original operated on prin1 output, not sure what the logic behind that is. on a lisp machine (zl:explode "foo") gives me '(|"| |f| |o| |o| |"|)