diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-20 15:52:29 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-20 15:52:29 +0200 |
| commit | 9a260797aed2755eb66e406e5a4bb14ba40b91b3 (patch) | |
| tree | 5023a3d6fc0dbefd75a9140e3ba5eb1f1e05b234 | |
| parent | caecbf223a0730b2f8ef6becb290746812596868 (diff) | |
Reformat.
| -rw-r--r-- | sb-eval2.lisp | 53 |
1 files changed, 26 insertions, 27 deletions
diff --git a/sb-eval2.lisp b/sb-eval2.lisp index 26c57af..7112a4a 100644 --- a/sb-eval2.lisp +++ b/sb-eval2.lisp @@ -498,31 +498,30 @@ (body* (prepare-progn body new-context)) (unbound (gensym))) (setq varspecs (nreverse varspecs)) - (let () - (flet - ((handle-arguments (new-env &rest args) - ;;(declare (dynamic-extent args)) - ;; All this ELT and LENGTH stuff is not as - ;; inefficient as it looks. SBCL transforms - ;; &rest into &more here. - (nlet iter - ((rest - (when (or restp keyp) - (loop for i - from (+ required-num optional-num) - below (length args) - collect (elt args i)))) - (restnum (- (length args) (+ required-num optional-num))) - (keys-checked-p nil) - (my-default-values* default-values*) - (my-keywords keywords) - (my-varspecs varspecs) - (argi 0) ;how many actual arguments have - ;been processed - (vari 0) ;how many lexical vars have been - ;bound - (i 0)) ;how many formal arguments have - ;been processed + (flet + ((handle-arguments (new-env &rest args) + ;;(declare (dynamic-extent args)) + ;; All this ELT and LENGTH stuff is not as + ;; inefficient as it looks. SBCL transforms + ;; &rest into &more here. + (nlet iter + ((rest + (when (or restp keyp) + (loop for i + from (+ required-num optional-num) + below (length args) + collect (elt args i)))) + (restnum (- (length args) (+ required-num optional-num))) + (keys-checked-p nil) + (my-default-values* default-values*) + (my-keywords keywords) + (my-varspecs varspecs) + (argi 0) ;how many actual arguments have + ;been processed + (vari 0) ;how many lexical vars have been + ;bound + (i 0)) ;how many formal arguments have + ;been processed (declare (fixnum restnum argi vari i)) (flet ((push-args (&rest values) ;; Push VALUES onto the @@ -628,7 +627,7 @@ final-call (return (funcall body* new-env))))))) - ;;(declare (inline handle-arguments)) + ;;(declare (inline handle-arguments)) ;crashes the compiler! lp#1203260 (if envp (lambda (env) (lambda (&rest args) @@ -639,7 +638,7 @@ (lambda (&rest args) (declare (dynamic-extent args)) (with-dynamic-extent-environment (new-env env varnum) - (apply #'handle-arguments new-env args)))))))))))) + (apply #'handle-arguments new-env args))))))))))) (defun context->native-environment (context) (let ((functions |