Revision: 4560 Author: hans URL: http://bknr.net/trac/changeset/4560 updating asdf U trunk/thirdparty/alexandria/.git/index U trunk/thirdparty/alexandria/.git/logs/HEAD U trunk/thirdparty/alexandria/.git/logs/refs/heads/master U trunk/thirdparty/alexandria/.git/refs/heads/master U trunk/thirdparty/alexandria/types.lisp D trunk/thirdparty/asdf/ Modified: trunk/thirdparty/alexandria/.git/index =================================================================== (Binary files differ) Modified: trunk/thirdparty/alexandria/.git/logs/HEAD =================================================================== --- trunk/thirdparty/alexandria/.git/logs/HEAD 2010-06-14 06:36:57 UTC (rev 4559) +++ trunk/thirdparty/alexandria/.git/logs/HEAD 2010-06-14 06:51:53 UTC (rev 4560) @@ -1 +1,2 @@ 0000000000000000000000000000000000000000 a5d7ec2a97cc0b0f45a17298d781665fd6d19bb8 Hans Huebner <hans.huebner@gmail.com> 1276496273 +0200 clone: from git://common-lisp.net/projects/alexandria/alexandria.git +a5d7ec2a97cc0b0f45a17298d781665fd6d19bb8 0c53e15bd6b43e77970dd2dd8b79fbd3c80aabbf Hans Huebner <hans.huebner@gmail.com> 1276496560 +0200 commit: Modify CDR5 type generation macro to work with lower-case symbols for Modified: trunk/thirdparty/alexandria/.git/logs/refs/heads/master =================================================================== --- trunk/thirdparty/alexandria/.git/logs/refs/heads/master 2010-06-14 06:36:57 UTC (rev 4559) +++ trunk/thirdparty/alexandria/.git/logs/refs/heads/master 2010-06-14 06:51:53 UTC (rev 4560) @@ -1 +1,2 @@ 0000000000000000000000000000000000000000 a5d7ec2a97cc0b0f45a17298d781665fd6d19bb8 Hans Huebner <hans.huebner@gmail.com> 1276496273 +0200 clone: from git://common-lisp.net/projects/alexandria/alexandria.git +a5d7ec2a97cc0b0f45a17298d781665fd6d19bb8 0c53e15bd6b43e77970dd2dd8b79fbd3c80aabbf Hans Huebner <hans.huebner@gmail.com> 1276496560 +0200 commit: Modify CDR5 type generation macro to work with lower-case symbols for Modified: trunk/thirdparty/alexandria/.git/refs/heads/master =================================================================== --- trunk/thirdparty/alexandria/.git/refs/heads/master 2010-06-14 06:36:57 UTC (rev 4559) +++ trunk/thirdparty/alexandria/.git/refs/heads/master 2010-06-14 06:51:53 UTC (rev 4560) @@ -1 +1 @@ -a5d7ec2a97cc0b0f45a17298d781665fd6d19bb8 +0c53e15bd6b43e77970dd2dd8b79fbd3c80aabbf Modified: trunk/thirdparty/alexandria/types.lisp =================================================================== --- trunk/thirdparty/alexandria/types.lisp 2010-06-14 06:36:57 UTC (rev 4559) +++ trunk/thirdparty/alexandria/types.lisp 2010-06-14 06:51:53 UTC (rev 4560) @@ -18,9 +18,10 @@ ((frob (type &optional (base-type type)) (let ((subtype-names (list)) (predicate-names (list))) - (flet ((make-subtype-name (format-control) - (let ((result (format-symbol :alexandria format-control - (symbol-name type)))) + (flet ((make-subtype-name (prefix) + (let ((result (format-symbol :alexandria + "~A-~A" + prefix (symbol-name type)))) (push result subtype-names) result)) (make-predicate-name (sybtype-name) @@ -34,10 +35,10 @@ type (if (equal range-beg ''*) inf (ensure-car range-beg)) (if (equal range-end ''*) inf (ensure-car range-end)))))) - (let* ((negative-name (make-subtype-name "NEGATIVE-~A")) - (non-positive-name (make-subtype-name "NON-POSITIVE-~A")) - (non-negative-name (make-subtype-name "NON-NEGATIVE-~A")) - (positive-name (make-subtype-name "POSITIVE-~A")) + (let* ((negative-name (make-subtype-name '#:negative)) + (non-positive-name (make-subtype-name '#:non-positive)) + (non-negative-name (make-subtype-name '#:non-negative)) + (positive-name (make-subtype-name '#:positive)) (negative-p-name (make-predicate-name negative-name)) (non-positive-p-name (make-predicate-name non-positive-name)) (non-negative-p-name (make-predicate-name non-negative-name))