- cl-menusystem-cvs@lists.common-lisp.net

[cl-menusystem-cvs] LMNGU: Unique Logo design!
by Raquel Echols 06 Feb '05

06 Feb '05

Have our designers creates a custom logo for you, with a step-by-step process based on your needs. Our extensive experience allows us to create a logo that makes a statement that is unique to you. In a professional manner we learn about your image and how you would like the world to perceive you and your company. Your input is invaluable, for us to create a logo that is not only unique but conveys the mission of you and your company. Based on your concepts we create a custom logo for you. Special care is also taken to verify the uniqueness of your logo, with web-searches, interactive media programs and our resource library of existing logos. Our ultimate goal is for you to have a logo that portraits your mission. You review it, before you buy it. For value and a logo that reflects your image, visit TryLogos! Special offer: 25% DISC0UNT on all custom design logos services from 20 january to 20 february ! http://www.try-logos.com/ Since rely Logo Design Team Shoud you want to unsubscribe: http://www.try-logos.com/uns.php?674FF025AA

1 0

[cl-menusystem-cvs] CVS update: public_html/index.html
by Brian Mastenbrook 01 Dec '03

01 Dec '03

Update of /project/cl-menusystem/cvsroot/public_html In directory common-lisp.net:/home/bmastenbrook/public_html Modified Files: index.html Log Message: Huh? Date: Mon Dec 1 09:24:28 2003 Author: bmastenbrook Index: public_html/index.html diff -u public_html/index.html:1.1.1.1 public_html/index.html:1.2 --- public_html/index.html:1.1.1.1 Mon Dec 1 09:22:29 2003 +++ public_html/index.html Mon Dec 1 09:24:28 2003 @@ -11,7 +11,5 @@ It also has a page on <a href="http://www.cliki.net/cl-menusystem">CLiki</a>. <p> <a href="http://www.cs.indiana.edu/cgi-bin/tomail.cgi?name=bmastenb">Email me</a>. -<hr> -<a href="../../">Non-local exit</a> </body> </html>

1 0

[cl-menusystem-cvs] CVS update: public_html/cl-menusystem-2003-09-19.tar.gz
by Brian Mastenbrook 01 Dec '03

01 Dec '03

Update of /project/cl-menusystem/cvsroot/public_html In directory common-lisp.net:/home/bmastenbrook/public_html Added Files: cl-menusystem-2003-09-19.tar.gz Log Message: Foo bar Date: Mon Dec 1 09:24:12 2003 Author: bmastenbrook

1 0

[cl-menusystem-cvs] CVS update: Module improted: public_html
by Brian Mastenbrook 01 Dec '03

01 Dec '03

Update of /project/cl-menusystem/cvsroot/public_html In directory common-lisp.net:/home/bmastenbrook/public_html Log Message: awenglkawn Status: Vendor Tag: pages Release Tags: foo N public_html/index.html N public_html/cl-menusystem-test.html No conflicts created by this import Date: Mon Dec 1 09:22:29 2003 Author: bmastenbrook New module public_html added

1 0

[cl-menusystem-cvs] CVS update: cl-menusystem/system-menu.lisp
by Brian Rice 03 Oct '03

03 Oct '03

Update of /project/cl-menusystem/cvsroot/cl-menusystem In directory common-lisp.net:/tmp/cvs-serv9939 Modified Files: system-menu.lisp Log Message: Several bug-fixes. Date: Fri Oct 3 00:28:09 2003 Author: brice Index: cl-menusystem/system-menu.lisp diff -u cl-menusystem/system-menu.lisp:1.1 cl-menusystem/system-menu.lisp:1.2 --- cl-menusystem/system-menu.lisp:1.1 Thu Oct 2 23:17:10 2003 +++ cl-menusystem/system-menu.lisp Fri Oct 3 00:28:08 2003 @@ -49,9 +49,10 @@ (defun sysdef-central-registry-list () "Mirrors asdf's sysdef-central-registry-search." - (loop for path in asdf:*central-registry* - with pathname = (if (pathnamep path) path (pathname path)) - with dir = (ignore-errors (sysdef-list-from-dir pathname)) + (loop for path-expr in asdf:*central-registry* + for path = (eval path-expr) + for pathname = (if (pathnamep path) path (pathname path)) + for dir = (ignore-errors (sysdef-list-from-dir pathname)) when (consp dir) nconc dir)) @@ -64,24 +65,25 @@ (defun local-systems-refresh () "Scans the appropriate areas for locally-installed system definitions." (loop for sysdef in (sysdef-central-registry-list) - do (pushnew sysdef *local-systems*)) - (sort *local-systems* #'string<=) + do (pushnew sysdef *local-systems* :key #'truename :test #'equal)) + (sort *local-systems* #'string<= :key #'namestring) *local-systems*) (eval-when (:compile-toplevel :load-toplevel :execute) (local-systems-refresh)) (defmethod display-object ((sys asdf:system) output-device) - (mapcar - (lambda (pair) - (simple-format-message output-device "~A: ~A~&" (car pair) (cdr pair))) - '(("Name" . (component-name sys)) - ("Version" . (component-version sys)) - ("Description" . (system-description sys)) - ("Author" . (system-author sys)) - ("Maintainer" . (system-maintainer sys)) - ("License" . (system-licence sys)) - ("Status" . nil)))) ;TODO: get package installation status + (handler-bind ((unbound-slot (lambda (x) nil))) + (mapcar + (lambda (pair) + (simple-format-message output-device "~A: ~A~&" (car pair) (cdr pair))) + `(("Name" . ,(asdf:component-name sys)) + ("Version" . ,(asdf:component-version sys)) + ("Description" . ,(asdf:system-description sys)) + ("Author" . ,(asdf:system-author sys)) + ("Maintainer" . ,(asdf:system-maintainer sys)) + ("License" . ,(asdf::system-licence sys)) + ("Status" . nil))))) ;TODO: get package installation status (defmenu *system-menu* "System Menu" nil (make-menu-action @@ -109,7 +111,7 @@ (do-menu (make-menu (format nil "Operating on system ~A" sys-pathname) - "Select an action to perform on this system." + "Select an action to perform." (make-menu-action "Show Extended Information" nil (rst) (display-object (asdf:find-system (pathname-name sys-pathname)) @@ -121,7 +123,7 @@ (make-menu-action "Load Source" nil (rst) (asdf:oos 'asdf:load-source-op sys-pathname)) (make-menu-action "Back to the main menu" nil (rst) - (invoke-restart main-rst))) + (invoke-restart rst))) *menu-output* *menu-input*))) (make-menu-action "Edit the ASDF central registry"

1 0

[cl-menusystem-cvs] CVS update: cl-menusystem/system-menu.lisp
by Brian Rice 03 Oct '03

03 Oct '03

Update of /project/cl-menusystem/cvsroot/cl-menusystem In directory common-lisp.net:/tmp/cvs-serv27091 Added Files: system-menu.lisp Log Message: Added system-menu, with bugs still. Date: Thu Oct 2 23:17:12 2003 Author: brice

1 0

[cl-menusystem-cvs] CVS update:
by root 25 Sep '03

25 Sep '03

Date: Thursday September 25, 2003 @ 14:49 Author: root Update of /project/cl-menusystem/cvsroot/CVSROOT In directory common-lisp.net:/root/tmp/CVSROOT Modified Files: loginfo Log Message: new cvslog.py

1 0

[cl-menusystem-cvs] CVS update:
by Brian Rice 24 Sep '03

24 Sep '03

Date: Wednesday September 24, 2003 @ 15:13 Author: brice Update of /project/cl-menusystem/cvsroot/cl-menusystem In directory common-lisp.net:/tmp/cvs-serv7752 Modified Files: cl-menusystem.lisp Log Message: Exported request-integer and request-expression.

1 0

[cl-menusystem-cvs] CVS update:
by Brian Rice 24 Sep '03

24 Sep '03

Date: Wednesday September 24, 2003 @ 15:09 Author: brice Update of /project/cl-menusystem/cvsroot/cl-menusystem In directory common-lisp.net:/tmp/cvs-serv6360 Modified Files: easy-menus.lisp Log Message: Added default values for *menu-input* and *menu-output*, added make-list-menu, and display-object methods for lists and vectors.

1 0

[cl-menusystem-cvs] CVS update:
by Brian Mastenbrook 24 Sep '03

24 Sep '03

Date: Tuesday September 23, 2003 @ 20:20 Author: bmastenbrook Update of /project/cl-menusystem/cvsroot/cl-menusystem In directory common-lisp.net:/tmp/cvs-serv20491 Modified Files: README Log Message: Test CVS update

1 0