Joseph Ferano
a4c6b996ff
The trio the author decided on 2026-09-20 is now all built: def is CL's defparameter — its initialiser runs on every daemon re-run, unguarded, so an edited initialiser repaints the same storage on C-c C-c plus re-run — defonce (Clojure's name for CL's defvar, per the author) initialises once behind the .init~once. flag, and defconst stays the image. One parse arm reads both forms; the difference is Ast.reinit, carried to Tast.global's grerun. Emit.startup_plan gives a def no guard flag, and Check.check_global lifts every def initialiser — zero and literal included — into global/<n>, so the host's startup reaches it through the function cell and a re-evaluated def swaps it (Session's def_inits; Emit.redefinition declares the cell for a non-sibling target). The old defvar spelling is refused with the rename and both compiling spellings, and every program, test, doc and editor list is swept — except sand.flan, the author's live WIP, whose seven defvar lines are flagged in FIX.org and keep its three dependent tests red on this branch.
21 lines
720 B
Plaintext
21 lines
720 B
Plaintext
(defstruct Enemy [hp i32 name string])
|
|
|
|
(defonce spawned i32)
|
|
(defconst room-size 4)
|
|
(defonce room [room-size i32])
|
|
|
|
;; `set` takes a fixed list of forms, not an extensible setf.
|
|
(defn main [] ()
|
|
(let [e (Enemy {.hp 10 .name "slime"})
|
|
p (addr e)]
|
|
(set spawned (+ spawned 1)) ; a local or a defonce
|
|
(set (.hp e) 7) ; a struct field
|
|
(set (.hp p) 8) ; through a (Ptr Enemy) — derefs one level
|
|
(set (at room 2) 5) ; a fixed array or slice element
|
|
(set (deref p) (Enemy {.hp 3 .name "wisp"})) ; a whole-object store
|
|
|
|
(print (.hp e)) (println "")
|
|
(println (.name e))
|
|
(print (at room 2)) (println "")
|
|
(print spawned) (println "")))
|