[parenscript-devel] Missing 'break' in CASE

sblist at me.com sblist at me.com
Fri Oct 1 16:12:27 UTC 2010


It appears that some commit between ac408014 and b9dc8d1a (maybe
2f9fa1976a?) breaks the compilation of CASE forms in a function's tail
position when some (but not all) branches in a body form contain a RETURN. 
                                                                                                                                                               
PS> (ps (defun foo ()                                                                                                                                                                     
          (case x                                                                                                                                                                          
            ("bar" (if y (return t) nil))                                                                                                                                                  
            ("baz" nil))))
"function foo() {                                                                                                                                                                          
    switch (x) {                                                                                                                                                                           
    case 'bar':                                                                                                                                                                            
        if (y) {                                                                                                                                                                           
            return true;                                                                                                                                                                   
        };                                                      
    //----------------- missing break; here                                                                                                                           
    case 'baz':                                                                                                                                                                            
        return null;                                                                                                                                                                       
    };                                                                                                                                                                                     
};" 

Scott




More information about the parenscript-devel mailing list