X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler.lisp;h=96c4475552931e0a59dfb9658c475602585e862e;hb=f33d4fe523a91d6075fc49f20eb1ecf46495f71d;hp=0b6ad0fbdabb3b124fca9763be603cc8a994d530;hpb=6a9c2d95f7fedf24210efe480d76f00656c9b7aa;p=jscl.git diff --git a/src/compiler.lisp b/src/compiler.lisp index 0b6ad0f..96c4475 100644 --- a/src/compiler.lisp +++ b/src/compiler.lisp @@ -736,7 +736,6 @@ `(return (method-call |values| "apply" this (call |forcemv| (get cf "values")))) `(return (get cf "values"))) (throw cf)))) - ;; TODO: is selfcall necessary here? `(selfcall ,cbody))))) (define-compilation return-from (name &optional value)