libera/#lisp - IRC Chatlog

4:24:30 jcowan defmacro deflexical (var &optional init doc)

4:24:30 jcowan `(progn (define-symbol-macro ,var (get ',var 'lexical))

4:24:43 moon-child <moon-child> muurkha: there is this hack: (let ((global-holder (list init-value))) (define-symbol-macro -the-global- `(car ',global-holder)))