Re: Lexical CATCH and named constructs

[Scott at SRI-KL (Scott J. Kramer)]

In-Reply-To: Your message of 16-Apr-80 0131-PST

    Mail-from: ARPAnet host MIT-MC rcvd at 16-Apr-80 0414-PST
    Date: 16 April 1980 04:31-EST
    From: Quux <QUUX at MIT-AI>
    Subject: Lexical CATCH and named constructs
    To: BUG-LISP at MIT-AI, BUG-LISPM at MIT-AI, nil at MIT-MC

    Maybe do it with various kinds of parentheses:

    	[SETQ X {CAR (IF [OR (CAR X)
    			     (AND (CDR X) (RETURN-FROM "[" 3))
    			     (RETURN-FROM "{" 5)]
    			 [RETURN-FROM "[" 6]
    			 LOSER)}]

Bletch, that's the grossest looking code I've ever seen!
-------