[armedbear-cvs] r13701 - in trunk/abcl: contrib/abcl-asdf src/org/armedbear/lisp

[mevenson at common-lisp.net]

Author: mevenson
Date: Mon Dec  5 03:10:17 2011
New Revision: 13701

Log:
mop: implement mop:extract-specializer-names as specified in AMOP page 189.

Patch by Rudolf Schlatte.

Modified:
   trunk/abcl/contrib/abcl-asdf/abcl-asdf.lisp
   trunk/abcl/src/org/armedbear/lisp/clos.lisp
   trunk/abcl/src/org/armedbear/lisp/mop.lisp

Modified: trunk/abcl/contrib/abcl-asdf/abcl-asdf.lisp
==============================================================================
--- trunk/abcl/contrib/abcl-asdf/abcl-asdf.lisp	Tue Nov 29 04:25:08 2011	(r13700)
+++ trunk/abcl/contrib/abcl-asdf/abcl-asdf.lisp	Mon Dec  5 03:10:17 2011	(r13701)
@@ -41,6 +41,9 @@
         (setf asdf::group-id (subseq asdf::name 0 slash)
               asdf::artifact-id (subseq asdf::name (1+ slash))
               asdf::schema "mvn"
+              asdf::version (if (eq asdf::version :latest)
+                                "LATEST"
+                                asdf::version)
               asdf::path (format nil "~A/~A" asdf::name asdf::version))))))
 
 (defmethod source-file-type ((component iri) (system system))

Modified: trunk/abcl/src/org/armedbear/lisp/clos.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/clos.lisp	Tue Nov 29 04:25:08 2011	(r13700)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Mon Dec  5 03:10:17 2011	(r13701)
@@ -1483,7 +1483,7 @@
       (values function-name
               qualifiers
               (extract-lambda-list specialized-lambda-list)
-              (extract-specializers specialized-lambda-list)
+              (extract-specializer-names specialized-lambda-list)
               documentation
               declarations
               (list* 'block
@@ -1514,7 +1514,7 @@
       ,@(if opts `(&optional , at opts) ())
       ,@(if auxs `(&aux , at auxs) ()))))
 
-(defun extract-specializers (specialized-lambda-list)
+(defun extract-specializer-names (specialized-lambda-list)
   (let ((plist (analyze-lambda-list specialized-lambda-list)))
     (getf plist ':specializers)))
 

Modified: trunk/abcl/src/org/armedbear/lisp/mop.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/mop.lisp	Tue Nov 29 04:25:08 2011	(r13700)
+++ trunk/abcl/src/org/armedbear/lisp/mop.lisp	Mon Dec  5 03:10:17 2011	(r13701)
@@ -62,6 +62,7 @@
 
           eql-specializer-object
           extract-lambda-list
+          extract-specializer-names
 
           intern-eql-specializer))