Topic: How to transform the defun into static-defun of result?

[d2010]

a)The problem is;  how to hide the result inside body of Defun?
E.g If I call this function
     (set ax (mid_pnt (list 2.0 2.0 0.0) (list 4.0 4.0 0.0)))
    then I call (Inject-insideDefun ax "mid_pnt")
 

Code: [Select]

(defun mid_pnt (p1 p2 / A B $rr)
(setq $rr nil)
(setq A P2)
(setq B P1)
(setq % (mapcar '(lambda (I J) (/ (+ I J) 2))
      A B)
 )
The instr. (Inject-insideDefun replace nil with (list 3.0 3.0 0.0)
Do you understand what is static=function, from linkedin.com?=clickhere with mouse.com
 
b)Secondary problem, How to read (list 3.0 3.0 0.0) from body-defun

Code: [Select]

(defun extractor_last (defunname As String  / $rr)
???
$rr)
;; You call (extractor_last "mid_pnt"), Must return (list 3.0 3.0 0.0)