bowbow99

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

(defmacro debug-print (form stream)
  `(progn
     (format t "~&#?=~S:~S:~S~%"
       ,(or *load-pathname*
            (when (buffer-stream-p stream)
              (buffer-name (buffer-stream-buffer stream)))
            stream)
       ,(si:*stream-line-number stream)