Get function code as S-expression

Hi All,

In some of my tests, I need to make sure some function bodies are equal to expected S-expressions

I did a function to get the content of a function using `pp' but it has some limitations:

​(defun get_fun_code (fun "U")
  "Return FUN definition as an S-expression"
  ;; Make sure function code is printed in Lisp style, not C one
  (let ((top_fun_name '__get_fun_code_top_fun__)
        (printinfix (status printinfix))
        (port (outstring))
        )
    ;; Make function global but hidden (considering top_fun_name is complicated enough)
    (unwindProtect
    (progn (sstatus printinfix nil)
           (putd top_fun_name fun)
           ;; Print code to outstring and read it as S-expression
           (funcall pp top_fun_name port)
           (car (linereadstring (getOutstring port)))
           )
    ;; Cleanup
    (progn (sstatus printinfix printinfix)
           (putd top_fun_name nil)
           (close port)
           )
  )))

My issue is: if the function contains specific objects in its body (functions, dbobject, etc.), they are printed as funobj:fun_name which `lineread' understands as (range funobj fun_name)

I can work with that but it is prone to error and I am sure pp is just a print of an existing function which I am not aware of (I guess it is private)

Cheers,

Aurel