Vassil Nikolov  <vnikolov+usenet@pobox.com> wrote:
+---------------
|      * (defun foo () (flet ((bar () 'bar1) (bar () 'bar2)) (bar)))
|     FOO
|      * (foo)
|     BAR2  ;so far, so good (?)
|      * (compile 'foo)
|     FOO ;
|     NIL ;
|     NIL
|      * 
+---------------

CMUCL isn't silent in this case:

    cmu> (compile 'foo)

    ; Note: Deleting unused function
    ;   (FLET BAR
    ;     FOO)
    ; 
    ; Compiling LAMBDA NIL: 
    ; Compiling Top-Level Form: 

    ; Compilation unit finished.
    ;   1 note


    FOO
    T
    NIL
    cmu> (foo))

    BAR2
    cmu> 

Doesn't mean it's "right", though...


-Rob

-----
Rob Warnock			<rpw3@rpw3.org>
627 26th Avenue			<URL:http://rpw3.org/>
San Mateo, CA 94403		(650)572-2607