Gauche's debug-print macro for CL

debug-print.lisp

;;; ref. http://practical-scheme.net/gauche/man/gauche-refj_16.html#SEC18

(defmacro debug-print (form)
  `(progn
     (format t "#?=~S~%" ',form)
     (let ((#1=#:values (multiple-value-list ,form)))
       (format t "#?-    ~{~S~%~^#?+    ~}" #1#)
       (values-list #1#))))

(set-dispatch-macro-character #\# #\?
  #'(lambda (s c n)
      (declare (ignore c n))
      (read-char s t)
      `(debug-print ,(read s t nil t))))