(require 'stdlib)

(require 'compiler)
(require 'disassembler)

(disassemble (compile-form '(* (+ a b) c)))

(defmacro discom (form)
  `(disassemble (compile-form '(,form))))

;; mutating a constant list
(defun foo (x)
  (cons x '(1 2 3)))

(defun bar (x)
  (cons x (list 1 2 3)))

(compile-function foo)
(compile-function bar)
(disassemble foo)
(disassemble bar)