Changeset 13701


Ignore:
Timestamp:
12/05/11 11:10:17 (10 years ago)
Author:
Mark Evenson
Message:

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

Patch by Rudolf Schlatte.

Location:
trunk/abcl
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/abcl/contrib/abcl-asdf/abcl-asdf.lisp

    r13575 r13701  
    4242              asdf::artifact-id (subseq asdf::name (1+ slash))
    4343              asdf::schema "mvn"
     44              asdf::version (if (eq asdf::version :latest)
     45                                "LATEST"
     46                                asdf::version)
    4447              asdf::path (format nil "~A/~A" asdf::name asdf::version))))))
    4548

  • trunk/abcl/src/org/armedbear/lisp/clos.lisp

    r13635 r13701  
    14841484              qualifiers
    14851485              (extract-lambda-list specialized-lambda-list)
    1486               (extract-specializers specialized-lambda-list)
     1486              (extract-specializer-names specialized-lambda-list)
    14871487              documentation
    14881488              declarations
    … …  
    15151515      ,@(if auxs `(&aux ,@auxs) ()))))
    15161516
    1517 (defun extract-specializers (specialized-lambda-list)
     1517(defun extract-specializer-names (specialized-lambda-list)
    15181518  (let ((plist (analyze-lambda-list specialized-lambda-list)))
    15191519    (getf plist ':specializers)))

  • trunk/abcl/src/org/armedbear/lisp/mop.lisp

    r13541 r13701  
    6363          eql-specializer-object
    6464          extract-lambda-list
     65          extract-specializer-names
    6566
    6667          intern-eql-specializer))
Note: See TracChangeset for help on using the changeset viewer.