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.