diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-21 12:04:49 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-21 12:04:49 +0200 |
| commit | 9c61c01616c5d2ad3f4b4fbd3644752a85cf2692 (patch) | |
| tree | a1070caca8178a114a36833fb97e9f7747157591 | |
| parent | 5057e340c9d3a947b11895f692f61d7f1b614cf6 (diff) | |
Permit user-defined function names.
| -rw-r--r-- | sb-eval2.lisp | 5 |
1 files 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)) |