screwlisp (screwtape@mastodon.sdf.org)'s status on Thursday, 23-Jan-2025 09:05:08 JST

@ksaj
(defun worst-r-dereader (s c n) (declare (ignore c))
"(list #1rten #2rtenth #rx )"
`(loop :with num := (symbol-name ',(read s t t t))
:for x :from 1
:below most-positive-fixnum
:for rom :=
(format
nil
(cond
((and ,n (= ,n 1)) "~:@(~r~)")
((and ,n (= ,n 2)) "~:@(~:r~)")
((null ,n) "~@r")
(:otherwise (error "Unknown number type")))
x)
:when (string= num rom) :return x))
(set-dispatch-macro-character #\# #\r #'worst-r-dereader)
I guess we can't write #oxiii ;_;
@phoe