technomancy

From f52f77a2977baa165203a1cb57b766c4945f8ff6 Mon Sep 17 00:00:00 2001
From: Phil Hagelberg <phil@hagelb.org>
Date: Tue, 25 Aug 2026 12:32:50 -0700
Subject: [PATCH] Include the name of the deftest in the :test fn in deftest.

Without this you get nonsense in your stack frames and can't actually
tell which deftest a given trace comes from.
---
 src/clj/clojure/test.clj | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

technomancy

The Clojure Style Guide is pretty good overall. It's very detailed and most of its advice is solid. There are handful of places it makes bad recommendations or is missing some advice.

Many of these criticisms apply to the output of linters like clj-kondo as well.

threading macros vs let

technomancy

;; since one of the strengths of Fennel is access to Lua frameworks, here's
;; a graphical REPL which runs inside LÖVE (https://love2d.org)

;; supports multiline input, showing errors in red, detecting incomplete input.
;; for a slightly more complex version which supports running inside a sandbox
;; see the wiki: https://github.com/bakpakin/Fennel/wiki/Repl
;; to run: fennel -c love-repl.fnl > main.lua && love .

(local fennel (require :fennel))

technomancy

;; For this, please write a program which takes in a CLI arg for a string
;; expression such as “1 + 2 - 3” and have it interpret the expression
;; and print the result to stdout. Only support for + and - is needed, to
;; avoid precedence.

(fn evaluate [input]
  ;; first for regularity, we prepend a + to the input string; this way we end
  ;; up just looping thru a series of operator/number pairs instead of having
  ;; numbers with operators between them.
  (let [input (.. "+ " input)]

technomancy

;; This module is the read/eval/print loop; for coding Fennel interactively.

;; The most complex thing it does is locals-saving, which allows locals to be
;; preserved in between "chunks"; by default Lua throws away all locals after
;; evaluating each piece of input.

(local utils (require :fennel.utils))
(local parser (require :fennel.parser))
(local compiler (require :fennel.compiler))
(local specials (require :fennel.specials))

technomancy

user=> (def s (map = (range 100) (concat (range 78) [:lol] (range 99))))
#'user/s
user=> (realized? s)
false
user=> (every? true? s)
false
user=> (realized? s)
true
user=> 

technomancy

[ 50%] Building C object CMakeFiles/tic80core.dir/src/core/sound.c.o
[ 50%] Building C object CMakeFiles/tic80core.dir/src/api/js.c.o
[ 50%] Building C object CMakeFiles/tic80core.dir/src/api/lua.c.o
[ 50%] Building C object CMakeFiles/tic80core.dir/src/api/wren.c.o
[ 50%] Building C object CMakeFiles/tic80core.dir/src/api/squirrel.c.o
[ 52%] Building C object CMakeFiles/tic80core.dir/src/ext/gif.c.o
[ 52%] Building C object CMakeFiles/tic80core.dir/src/tic.c.o
[ 52%] Building C object CMakeFiles/tic80core.dir/src/cart.c.o
[ 52%] Building C object CMakeFiles/tic80core.dir/src/tools.c.o
[ 52%] Building C object CMakeFiles/tic80core.dir/src/tilesheet.c.o

technomancy

phil@localhost:~/lunatest$ ~/.luarocks/bin/luacheck lunatest.lua | grep -v unused | grep -v whitespace
Checking lunatest.lua                             40 warnings

    lunatest.lua:46:29: variable setmetatable was previously defined on line 42
    lunatest.lua:64:7: variable debug was previously defined on line 38
    lunatest.lua:489:1: setting non-standard global variable default_hooks
    lunatest.lua:512:1: setting non-standard global variable verbose_hooks
    lunatest.lua:540:14: accessing undefined variable verbose_hooks
    lunatest.lua:540:40: accessing undefined variable default_hooks
    lunatest.lua:656:10: variable arg was previously defined as an argument on line 655

technomancy

            ;; works                                                                                                                                                               
            (let [factory clojure.tools.logging/*logger-factory*]
              (try
                (alter-var-root #'clojure.tools.logging/*logger-factory*
                                (constantly clojure.tools.logging.impl/disabled-logger-factory))
                (is (thrown-with-msg? Exception #"Message not processed"
                                      (test-utils/process-message! msg 2)))
                (finally
                  (alter-var-root #'clojure.tools.logging/*logger-factory* factory))))

technomancy

~/src/urn $ make test LUA=luaj
luaj bin/urn.lua tests/compiler/codegen/precedence --run -o /tmp/tmp.9mEtsMxCet -fstrict-structs -- 
org.luaj.vm2.LuaError: bin/urn.lua:2034 vm error: java.lang.ArrayIndexOutOfBoundsException: -1
stack traceback:
	bin/urn.lua:2034: in function 'parseDocstring1'
	bin/urn.lua:10481: in function 'validate'
	bin/urn.lua:10501: in function 'run'
	bin/urn.lua:2858: in function 'runPass1'
	bin/urn.lua:10583: in function '?'
	bin/urn.lua:11332: in main chunk