In [1]:

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));

Out[1]:

NIL

Out[1]:

FOO

Type (to-maxima) to restart, ($quit) to quit Maxima.
Returning to Maxima

Out[1]:

\[\tag{${\it \%o}_{1}$}{\it bar}\left(x , y\right):=\mathbf{block}\;\left(\left[ \right] , \left(x:x+2 , y:y+2 , x:{\it foo}\left(y\right) , x+y\right)\right)\]

; file: CELL:417276200.MAC.NEWEST
; in: DECLAIM (OPTIMIZE (DEBUG 3) (SAFETY 3) (SPEED 0))
;     (DECLAIM (OPTIMIZE (DEBUG 3) (SAFETY 3) (SPEED 0)))
; 
; caught STYLE-WARNING:
;   DECLAIM where DECLARE was probably intended
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition

In [2]:

bar(1,2);

Bkpt 0:

[SIMPLE-CONDITION] break

; Evaluating call:
;   (+ X 3)
; With unknown arguments

[SB-EXT:STEP-FORM-CONDITION] Evaluating call:
  (+ X 3)
With unknown arguments

; Evaluating call:
;   (PRINT (+ X 3))
; With arguments:
;   7

[SB-EXT:STEP-FORM-CONDITION] Evaluating call:
  (PRINT (+ X 3))
With arguments:
  7

7 ; (PRINT (+ X 3)) => 7
; Evaluating call:
;   (+ X 4)
; With unknown arguments

[SB-EXT:STEP-FORM-CONDITION] Evaluating call:
  (+ X 4)
With unknown arguments

Out[2]:

\[\tag{${\it \%o}_{2}$}12\]

In [ ]:

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

In [ ]:

to_lisp();

In [ ]:

:lisp (print 7)

In [ ]:

error(2);

In [ ]:

maxima::*stream-alist*

In [ ]:

break();

In [ ]:

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

In [ ]:

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

In [ ]:

(wibble 8)

In [ ]:

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

In [ ]:

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

In [ ]:

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

In [ ]: