shithub: sl

Info  •  Files  •  Log  •  Branches

disenv.lsp: a script to disassemble everything

--- /dev/null

+++ b/disenv.lsp

@@ -1,0 +1,10 @@

+#!/usr/bin/env flisp

+(for-each (lambda (e)

+           (let ((v (top-level-value e)))

+                (when (and (function? v)

+                           (not (builtin? v)))

+                      (print e)

+                      (newline)

+                      (disassemble v)

+                      (newline))))

+          (environment))