(define-syntax-rule (game-action command subj obj place rest)
  (define-syntax-rule 'command  (subject object)
    (cond ((and (eq? *location* 'place)
                (eq? subject 'subj)
                (eq? object 'obj)
                (have 'subj))
           rest)
          (#t (format "I can't ~a like that." 'command)))))

(game-action doweld chain bucket attic (display "!!!"))

; define-syntax-rule: too many templates in: ((cond ((and (eq? *location* (quote attic)) (eq? subject (quote chain))
; (eq? object (quote bucket)) (have (quote chain))) (display ":)")) (#t (format "I can't ~a like that." (quote doweld)))))