to_lisp();

(declaim (optimize (debug 3)
                   (safety 3)
                   (speed 0)))

(defun foo (x)
  (break)
  (print (+ x 3))
  (+ x 4))
  
(to-maxima)

bar(x,y) := block([],(
  x: x+2,
  y: y+2, 
  x: ?foo(y),
  x+y));

bar(1,2);

to_lisp(); (clj::get-source-map #P"CELL:616192309.MAC.NEWEST") (to-maxima)

to_lisp();

:lisp (print 7)

error(2);

maxima::*stream-alist*

break();

(remhash #P"CELL:2115503282.MAC.NEWEST" clj::*source-maps*)

(defun wibble (x)
  (print x)
  (+ x 7))

(wibble 8)

(clj::get-source-map #P"CELL:591804621.MAC.NEWEST")

(clj::reset-source-map #P"CELL:4253716536.MAC.NEWEST")

(defun wibble (x)
  (print x)
  (+ x 1))