Hey Guys,<br><br>I find this little tid-bit useful, it works like the unix apropos command. Instead of waiting for me to get my tree merged, I'd thought I'd let someone else commit it; if it seems useful for others.<br>

<br>I'm also planning on integrating this with the helpfile function at some point.<br><br>-Scott<br><br>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br>;; apropos<br>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br>

;; <br>;; usage: (apropos "foo") will return a list of all namespace-mapped-symbols with "foo" in them<br><br>(define (apropos s)<br>  (let* ([apropos-list (map symbol->string (namespace-mapped-symbols))]<br>

    [apropos-regex (lambda (s)<br>          (let ((al (filter (lambda (l) (regexp-match s l)) apropos-list)))<br>            al))])<br>  (apropos-regex (string-append ".*" s ".*"))))<br><br>