;; $Id: actions.lsp,v 1.1 2002/02/01 20:24:29 moltmans Exp $
;; actions.lsp -- 
;; Author: Michael Oltmans <moltmans@ai.mit.edu> 
;; Created: <Fri May 18 13:40:50 2001> 
;; Time-stamp: <2001-05-18 13:55:38 moltmans> 


(defun action (verb subj obj antecedents)
  (case verb
    ((moves) (moves verb subj obj antecedents))
    ((rotates) (rotates verb subj obj antecedents))
    ((propels) (propels verb subj obj antecedents))
    (otherwise (error "Invalid verb: ~A" verb))))

(defun moves (verb subj obj antecedents)
  )
