function_name (function)
Gamma> function grand(a,b,c) {(a * b)/c;}
(defun grand (a b c) (/ (* a b) c))
Gamma> function_name(grand);
grand
Gamma> s = grand;
(defun grand (a b c) (/ (* a b) c))
Gamma> function_name(s);
grand
Gamma> function f () { nil; }
(defun f () nil)
Gamma> function g (x) { princ (function_name(x), "\n"); }
(defun g (x) (princ (function_name x) "\n"))
Gamma> g (f);
f
t
Gamma>
Copyright © 1995-2010 by Cogent Real-Time Systems, Inc. All rights reserved.