[lispy-devel] search-map

[James King]

I wrote a quick function for searching lispy that I thought might be useful:

(defun search-map (term)
    (let ((module-names (loop for module in (list-map)
                                                 (collecting (string (name
module)))))
      (loop for module in module-names
          if (search (string-upcase term) module)
          collecting module)))

Thanks for lispy. Quite handy, look forward to more libraries in the
official/experimental maps. :)
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/lispy-devel/attachments/20090305/de6b7c41/attachment.html>