;;;;; tré – Copyright (C) 2005-2009,2011–2012 Sven Michael Klose <pixel@copei.de>

(defun %=-function? (x)
  (function? (eval `(function ,x))))

;;;;; tré – Copyright (C) 2005-2009,2011–2012 Sven Michael Klose <pixel@copei.de>

(defun %=-function? (x)
  (function? (symbol-function x)))

Use SYMBOL-FUNCTION instead of EVAL.
Use SYMBOL-FUNCTION instead of EVAL.

SvenMichaelKlose/tre,SvenMichaelKlose/tre,SvenMichaelKlose/tre