Ignore:
Timestamp:
06/17/12 12:01:52 (9 years ago)
Author:
rschlatte
Message:

Allow multiple declare forms in defgeneric

  • fixes ansi test defgeneric.26
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/clos.lisp

    r13971 r13972  
    14181418      (case (car item)
    14191419        (declare
    1420          (when declarations
    1421            (error 'program-error
    1422                   :format-control "Two declare forms in definition of generic function ~S."
    1423                   :format-arguments (list function-name)))
    1424          (setf declarations t)
    1425          (push (list :declarations (cdr item)) options))
     1420         (setf declarations (append declarations (cdr item))))
    14261421        (:documentation
    14271422         (when documentation
     
    14381433        (t
    14391434         (push item options))))
     1435    (when declarations (push (list :declarations declarations) options))
    14401436    (setf options (nreverse options)
    14411437          methods (nreverse methods))
Note: See TracChangeset for help on using the changeset viewer.