[bknr-cvs] hans changed trunk/thirdparty/a

[BKNR Commits]

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 at gmail.com> 1276496273 +0200	clone: from git://common-lisp.net/projects/alexandria/alexandria.git
+a5d7ec2a97cc0b0f45a17298d781665fd6d19bb8 0c53e15bd6b43e77970dd2dd8b79fbd3c80aabbf Hans Huebner <hans.huebner at 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 at gmail.com> 1276496273 +0200	clone: from git://common-lisp.net/projects/alexandria/alexandria.git
+a5d7ec2a97cc0b0f45a17298d781665fd6d19bb8 0c53e15bd6b43e77970dd2dd8b79fbd3c80aabbf Hans Huebner <hans.huebner at 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))