diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-15 16:00:22 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-15 16:00:22 +0200 |
| commit | e46cbe4750338333088c4b67c0f7e83c41eb6a9b (patch) | |
| tree | ab51e7f05dd394dff386d25d90fb825c3858725e | |
| parent | 9a8ab9219e03e04c65b3a465aaeb5c973020a2fb (diff) | |
Fix indentation.
| -rw-r--r-- | sb-eval2.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/sb-eval2.lisp b/sb-eval2.lisp index 6b5ffc1..1b99129 100644 --- a/sb-eval2.lisp +++ b/sb-eval2.lisp @@ -455,9 +455,9 @@ (sb-int:parse-lambda-list lambda-list) (declare (ignorable required optional restp rest keyp keys allowp auxp aux morep more-context more-count)) - (when (or optional restp keyp allowp auxp morep) - (return-from prepare-lambda (lambda (env) (lambda (&rest args) (error "NYI"))))) - (let* ((argvars lambda-list) ;fixme + (when (or optional restp keyp allowp auxp morep) + (return-from prepare-lambda (lambda (env) (lambda (&rest args) (error "NYI"))))) + (let* ((argvars lambda-list) ;fixme (n (length (the list lambda-list))) (envp (maybe-closes-over-p `(progn ,@body) argvars)) (new-context (if envp |