Changeset 14140


Ignore:
Timestamp:
08/31/12 22:07:48 (9 years ago)
Author:
ehuelsmann
Message:

Fix more DMC-TEST-ARGS-WITH-WHOLE.* tests.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/test/lisp/abcl/clos-tests.lisp

    r14051 r14140  
    331331  ((methods ()))
    332332  (:arguments &whole whole &rest rest)
    333   `(progn (format nil "using ~a ~a" whole rest)
     333  `(progn (format nil "using ~a ~a" ,whole ,rest)
    334334          ,@(mapcar (lambda (method) `(call-method ,method))
    335335                    methods)))
     
    347347  ((methods ()))
    348348  (:arguments &whole whole &optional opt)
    349   `(progn (format nil "using ~a ~a" whole opt)
     349  `(progn (format nil "using ~a ~a" ,whole ,opt)
    350350          ,@(mapcar (lambda (method) `(call-method ,method))
    351351                    methods)))
     
    362362  ((methods ()))
    363363  (:arguments &whole whole &optional opt &key k)
    364   `(progn (format nil "using ~a ~a ~a" whole opt k)
     364  `(progn (format nil "using ~a ~a ~a" ,whole ,opt ,k)
    365365          ,@(mapcar (lambda (method) `(call-method ,method))
    366366                    methods)))
     
    377377  ((methods ()))
    378378  (:arguments &whole whole &optional opt &rest r)
    379   `(progn (format nil "using ~a ~a ~a" whole opt r)
     379  `(progn (format nil "using ~a ~a ~a" ,whole ,opt ,r)
    380380          ,@(mapcar (lambda (method) `(call-method ,method))
    381381                    methods)))
     
    393393  ((methods ()))
    394394  (:arguments &whole whole &optional opt &rest r &key k)
    395   `(progn (format nil "using ~a ~a ~a ~a" whole opt r k)
     395  `(progn (format nil "using ~a ~a ~a ~a" ,whole ,opt ,r ,k)
    396396          ,@(mapcar (lambda (method) `(call-method ,method))
    397397                    methods)))
     
    408408  ((methods ()))
    409409  (:arguments &whole whole &key k)
    410   `(progn (format nil "using ~a ~a" whole k)
     410  `(progn (format nil "using ~a ~a" ,whole ,k)
    411411          ,@(mapcar (lambda (method) `(call-method ,method))
    412412                    methods)))
     
    423423  ((methods ()))
    424424  (:arguments &whole whole &aux a)
    425   `(progn (format nil "using ~a ~a" whole a)
     425  `(progn (format nil "using ~a ~a" ,whole ,a)
    426426          ,@(mapcar (lambda (method) `(call-method ,method))
    427427                    methods)))
Note: See TracChangeset for help on using the changeset viewer.