Changeset 10983


Ignore:
Timestamp:
Oct 5, 2008, 3:13:32 AM (11 years ago)
Author:
gz
Message:

Propagate r10957 to trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/macros.lisp

    r10942 r10983  
    19051905                     (:reader
    19061906                      (setq name (cadr options))
    1907                       (push (cons name reader-info) signatures)
    1908                       (push name readers))
     1907                      (unless (memq name readers)
     1908                        (push (cons name reader-info) signatures)
     1909                        (push name readers)))
    19091910                     (:writer                     
    19101911                      (setq name (cadr options))
    1911                       (push (cons name writer-info) signatures)
    1912                       (push name writers))
     1912                      (unless (member name writers :test 'equal)
     1913                        (push (cons name writer-info) signatures)
     1914                        (push name writers)))
    19131915                     (:accessor
    19141916                      (setq name (cadr options))
    1915                       (push (cons name reader-info) signatures)
    1916                       (push name readers)
    1917                       (push (cons (setf-function-name name) writer-info) signatures)
    1918                       (push `(setf ,name) writers))
     1917                      (unless (memq name readers)
     1918                        (push (cons name reader-info) signatures)
     1919                        (push name readers))
     1920                      (let ((setf-name `(setf ,name)))
     1921                        (unless (member setf-name writers :test 'equal)
     1922                          (push (cons (setf-function-name name) writer-info) signatures)
     1923                          (push setf-name writers))))
    19191924                     (:initarg
    19201925                      (push (require-type (cadr options) 'symbol) initargs))
Note: See TracChangeset for help on using the changeset viewer.