From 9c61c01616c5d2ad3f4b4fbd3644752a85cf2692 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sun, 21 Jul 2013 12:04:49 +0200 Subject: Permit user-defined function names. --- sb-eval2.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/sb-eval2.lisp b/sb-eval2.lisp index b6aa7a9..f1aef25 100644 --- a/sb-eval2.lisp +++ b/sb-eval2.lisp @@ -761,12 +761,13 @@ (symbol (prepare-function-ref fun-form context)) (cons - (ecase (first fun-form) + (case (first fun-form) ((lambda) (prepare-lambda (rest fun-form) context)) ((sb-int:named-lambda) (prepare-lambda (cddr fun-form) context)) - ((setf sb-pcl::slot-accessor) + (t + (assert (sb-int:valid-function-name-p fun-form)) (prepare-function-ref fun-form context))))))) ((lambda) (prepare-lambda (rest form) context)) -- cgit v1.2.3