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

Patch by Rudolf Schlatte.
parent 2dbee954
......@@ -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))
......
......@@ -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 ,@opts) ())
,@(if auxs `(&aux ,@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)))
......
......@@ -62,6 +62,7 @@
eql-specializer-object
extract-lambda-list
extract-specializer-names
intern-eql-specializer))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment