Changeset 14140
- Timestamp:
- 08/31/12 22:07:48 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/test/lisp/abcl/clos-tests.lisp
r14051 r14140 331 331 ((methods ())) 332 332 (:arguments &whole whole &rest rest) 333 `(progn (format nil "using ~a ~a" wholerest)333 `(progn (format nil "using ~a ~a" ,whole ,rest) 334 334 ,@(mapcar (lambda (method) `(call-method ,method)) 335 335 methods))) … … 347 347 ((methods ())) 348 348 (:arguments &whole whole &optional opt) 349 `(progn (format nil "using ~a ~a" wholeopt)349 `(progn (format nil "using ~a ~a" ,whole ,opt) 350 350 ,@(mapcar (lambda (method) `(call-method ,method)) 351 351 methods))) … … 362 362 ((methods ())) 363 363 (:arguments &whole whole &optional opt &key k) 364 `(progn (format nil "using ~a ~a ~a" whole optk)364 `(progn (format nil "using ~a ~a ~a" ,whole ,opt ,k) 365 365 ,@(mapcar (lambda (method) `(call-method ,method)) 366 366 methods))) … … 377 377 ((methods ())) 378 378 (:arguments &whole whole &optional opt &rest r) 379 `(progn (format nil "using ~a ~a ~a" whole optr)379 `(progn (format nil "using ~a ~a ~a" ,whole ,opt ,r) 380 380 ,@(mapcar (lambda (method) `(call-method ,method)) 381 381 methods))) … … 393 393 ((methods ())) 394 394 (:arguments &whole whole &optional opt &rest r &key k) 395 `(progn (format nil "using ~a ~a ~a ~a" whole opt rk)395 `(progn (format nil "using ~a ~a ~a ~a" ,whole ,opt ,r ,k) 396 396 ,@(mapcar (lambda (method) `(call-method ,method)) 397 397 methods))) … … 408 408 ((methods ())) 409 409 (:arguments &whole whole &key k) 410 `(progn (format nil "using ~a ~a" wholek)410 `(progn (format nil "using ~a ~a" ,whole ,k) 411 411 ,@(mapcar (lambda (method) `(call-method ,method)) 412 412 methods))) … … 423 423 ((methods ())) 424 424 (:arguments &whole whole &aux a) 425 `(progn (format nil "using ~a ~a" wholea)425 `(progn (format nil "using ~a ~a" ,whole ,a) 426 426 ,@(mapcar (lambda (method) `(call-method ,method)) 427 427 methods)))
Note: See TracChangeset
for help on using the changeset viewer.