CASEQ

[HIC at MIT-MC (Howard I. Cannon)]

From:     EB@MIT-AI
Date: Mon, 16 May 78 22:05:31 GMT
Original-Date: 05/16/78 18:05:31 EDT
Subject: Re: CASEQ
    To: HIC at MIT-MC
        There's something I don't understand.  Since I haven't used
    CASEQ before it might be a problem with how I'm trying to use it,
    but why doesn't this work?

    	(DEFUN FOO (N)
    	       (CASEQ N
    		      (1 (PRINT 1))
    		      (2 (PRINT 2))
    		      (T (PRINT 'FOO))))

    	(foo 1)
    	1 
    	(foo 2)
    	;2 DOES NOT MATCH MATCHING EXPRESSION TYPE
----------
There was actually a bug in interpreted CASEQ, which has been fixed and patched
on all systems.  Thanks for pointing this out.