Changeset 14156
- Timestamp:
- 09/29/12 20:23:27 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/clos.lisp
r14154 r14156 1917 1917 (auxs (getf plist :auxiliary-args))) 1918 1918 `(,@requireds 1919 ,@(if opts `(&optional ,@opts) ()) 1919 1920 ,@(if rv `(&rest ,rv) ()) 1920 1921 ,@(if (or ks keysp aok) `(&key ,@ks) ()) 1921 1922 ,@(if aok '(&allow-other-keys) ()) 1922 ,@(if opts `(&optional ,@opts) ())1923 1923 ,@(if auxs `(&aux ,@auxs) ())))) 1924 1924
Note: See TracChangeset
for help on using the changeset viewer.