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

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

Use SYMBOL-FUNCTION instead of EVAL.
user
```common lisp
;;;;; tré – Copyright (C) 2005-2009,2011–2012 Sven Michael Klose <pixel@copei.de>

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