debug.lisp

(in-package :uncl)

(defmacro mexpand-all (expr)
  `(pprint (cl:macroexpand ',expr)))

(defmacro mexpand (expr)
  `(pprint (cl:macroexpand-1 ',expr)))

(defmacro print-form-and-results (form)
  `(format t "~&~A --> ~S~%" (write-to-string ',form) ,form))

(defmacro disassemble (args &body body)
  `(cl:disassemble
    (compile nil
      (lambda ,(mapcar (lambda (a)
                         (if (consp a)
                             (cadr a)
                             a))
                       args)
        (declare
         ,@(mapcar
            #'(lambda ($1) `(type ,(car $1) ,(cadr $1)))
            (remove-if-not #'consp args)))
        ,@body))))