function_body (function)
Gamma> function g(a,b,c) {(a * b)/c;} (defun g (a b c) (/ (* a b) c)) Gamma> function_body(g); #0=((/ (* a b) c)) Gamma> function h(r,s) {sin(r)/cos(s) * tan(s);} (defun h (r s) (* (/ (sin r) (cos s)) (tan s))) Gamma> function_body(h); #0=((* (/ (sin r) (cos s)) (tan s))) Gamma> function_body(sort); nil Gamma>
Copyright © 1995-2010 by Cogent Real-Time Systems, Inc. All rights reserved.