Arc Forumnew | comments | leaders | submitlogin
1 point by almkglor 6045 days ago | link | parent

Then there's this crazy thing that I haven't actually tested, but which might work:

  (def-all-ss
    #\:  (compose ...)
    ~    (complement R)
    ~    no
    =    (annotate 'mac (fn (_) `(= L ,_)))
    #\.  (...)
    !    (L 'r))
Instead of:

  (if hd
      (= tl (= (cdr tl) (cons o nil)))
      (= hd (= tl       (cons o nil))))
use:

  (if hd
      (tl=:cdr.tl= (cons o nil))
      (hd=:tl=     (cons o nil)))
(untested, of course ^^)