;;;; Programer: Kevin M. Rosenberg
;;;; Date Started: 1 Nov 2001
;;;;
-;;;; $Id: io-clim.lisp,v 1.2 2002/10/25 09:23:39 kevin Exp $
+;;;; $Id: io-clim.lisp,v 1.3 2002/10/25 13:09:11 kevin Exp $
;;;;
;;;; This file is Copyright (c) 2001-2002 by Kevin M. Rosenberg
;;;;
#-(and os-threads microsoft-32)
nil))
-(defun g ()
- (greversi))
-
-(defun greversi ()
+(defun clim-reversi ()
(unless (or *force* (null *reversi-frame*))
(setq *reversi-frame* (make-application-frame 'reversi)))
(setq *reversi-frame* (run-frame 'reversi *reversi-frame*)))