;;-*-Lisp-*- (in-package goal) ;; name: level.gc ;; name in dgo: level ;; dgos: GAME, ENGINE (defun play ((arg0 symbol) (arg1 symbol)) (format #t "(play ~A ~A) has been called!~%" arg0 arg1) (format 0 "(play ~A ~A) has been called!~%" arg0 arg1) (kernel-shutdown) 0 )