lambda-parameters.txt (267B)
1 implémentation de sbcl : 2 3 ; in: LAMBDA (#:WHOLE2122 #:ENVIRONMENT2123) 4 ; (LET* ((OBJECT (CAR (CDR #:WHOLE2122))) 5 ; (BODY (CAR (CDR #))) 6 ; (CATCH-CODE (CAR (CDR #)))) 7 ; (BLOCK TAGBODY-UNWIND-CATCH CATCH-CODE `(TAGBODY ,@(CDR BODY))))