Update of /project/lispy/cvsroot/lispy In directory cl-net:/tmp/cvs-serv12888

Modified Files: lispy.lisp packages.lisp Log Message: Add search functionality suggested on mailing list.

--- /project/lispy/cvsroot/lispy/lispy.lisp 2008/04/12 17:16:57 1.15 +++ /project/lispy/cvsroot/lispy/lispy.lisp 2009/03/07 07:38:21 1.16 @@ -364,6 +364,13 @@ "Return the list of installed modules versions." (hash-to-list *lispy-installation*))

+(defun search-map (regexp) + "Search the combined map for a given regular expression." + (remove-if-not #'(lambda (name) + (cl-ppcre:scan regexp (string-downcase (symbol-name name)))) + (list-map) + :key 'name)) + (defun initialize () "Initialize Lispy. This reads and merges all maps in *LISPY-MAP-URLS*, reads the installation, writes a fresh ASDF --- /project/lispy/cvsroot/lispy/packages.lisp 2008/01/27 19:54:07 1.6 +++ /project/lispy/cvsroot/lispy/packages.lisp 2009/03/07 07:38:21 1.7 @@ -37,5 +37,6 @@ #:upgradable-p #:list-upgrades #:upgrade - #:upgrade-all) + #:upgrade-all + #:search-map) (:documentation "Lispy is Common Lisp package management in Common Lisp."))