Renamed loader.lisp to launch-web-mine.lisp.

Pascal J. Bourguignon [2011-05-21 02:22]
Renamed loader.lisp to launch-web-mine.lisp.
Filename
launch-web-mine.lisp
loader.lisp
diff --git a/launch-web-mine.lisp b/launch-web-mine.lisp
new file mode 100644
index 0000000..2f584c2
--- /dev/null
+++ b/launch-web-mine.lisp
@@ -0,0 +1,68 @@
+;;;; -*- mode:lisp;coding:utf-8 -*-
+;;;;**************************************************************************
+;;;;FILE:               loader.lisp
+;;;;LANGUAGE:           Common-Lisp
+;;;;SYSTEM:             Common-Lisp
+;;;;USER-INTERFACE:     NONE
+;;;;DESCRIPTION
+;;;;
+;;;;    Loads the mine web player.
+;;;;
+;;;;AUTHORS
+;;;;    <PJB> Pascal Bourguignon <pjb@informatimago.com>
+;;;;MODIFICATIONS
+;;;;    2008-06-04 <PJB> Created.
+;;;;BUGS
+;;;;LEGAL
+;;;;    GPL
+;;;;
+;;;;    Copyright Pascal Bourguignon 2008 - 2008
+;;;;
+;;;;    This program is free software; you can redistribute it and/or
+;;;;    modify it under the terms of the GNU General Public License
+;;;;    as published by the Free Software Foundation; either version
+;;;;    2 of the License, or (at your option) any later version.
+;;;;
+;;;;    This program is distributed in the hope that it will be
+;;;;    useful, but WITHOUT ANY WARRANTY; without even the implied
+;;;;    warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
+;;;;    PURPOSE.  See the GNU General Public License for more details.
+;;;;
+;;;;    You should have received a copy of the GNU General Public
+;;;;    License along with this program; if not, write to the Free
+;;;;    Software Foundation, Inc., 59 Temple Place, Suite 330,
+;;;;    Boston, MA 02111-1307 USA
+;;;;**************************************************************************
+
+
+(in-package "COMMON-LISP-USER")
+
+(let ((asdf:*central-registry*
+       (cons (make-pathname :name nil :type nil :version nil
+                            :defaults *load-pathname*)
+             asdf:*central-registry*)))
+  (ql:quickload :com.informatimago.game.mine))
+
+
+(in-package "COM.INFORMATIMAGO.GAME.MINE-WEB-PLAYER")
+
+
+(defun ps ()
+  #+sbcl
+  (dolist (thread (sb-thread:list-all-threads))
+    (format t "~40A ~:[dead ~;alive~]~%"
+            (sb-thread:thread-name thread)
+            (sb-thread:thread-alive-p thread)))
+  (values))
+
+(defun ns ()
+  #+sbcl
+  (sb-ext:run-program "/bin/netstat" (list "-tnpl") :output t)
+  (values))
+
+(start-server)
+(ps)
+(ns)
+
+
+;;;; THE END ;;;;
diff --git a/loader.lisp b/loader.lisp
deleted file mode 100644
index 2f584c2..0000000
--- a/loader.lisp
+++ /dev/null
@@ -1,68 +0,0 @@
-;;;; -*- mode:lisp;coding:utf-8 -*-
-;;;;**************************************************************************
-;;;;FILE:               loader.lisp
-;;;;LANGUAGE:           Common-Lisp
-;;;;SYSTEM:             Common-Lisp
-;;;;USER-INTERFACE:     NONE
-;;;;DESCRIPTION
-;;;;
-;;;;    Loads the mine web player.
-;;;;
-;;;;AUTHORS
-;;;;    <PJB> Pascal Bourguignon <pjb@informatimago.com>
-;;;;MODIFICATIONS
-;;;;    2008-06-04 <PJB> Created.
-;;;;BUGS
-;;;;LEGAL
-;;;;    GPL
-;;;;
-;;;;    Copyright Pascal Bourguignon 2008 - 2008
-;;;;
-;;;;    This program is free software; you can redistribute it and/or
-;;;;    modify it under the terms of the GNU General Public License
-;;;;    as published by the Free Software Foundation; either version
-;;;;    2 of the License, or (at your option) any later version.
-;;;;
-;;;;    This program is distributed in the hope that it will be
-;;;;    useful, but WITHOUT ANY WARRANTY; without even the implied
-;;;;    warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
-;;;;    PURPOSE.  See the GNU General Public License for more details.
-;;;;
-;;;;    You should have received a copy of the GNU General Public
-;;;;    License along with this program; if not, write to the Free
-;;;;    Software Foundation, Inc., 59 Temple Place, Suite 330,
-;;;;    Boston, MA 02111-1307 USA
-;;;;**************************************************************************
-
-
-(in-package "COMMON-LISP-USER")
-
-(let ((asdf:*central-registry*
-       (cons (make-pathname :name nil :type nil :version nil
-                            :defaults *load-pathname*)
-             asdf:*central-registry*)))
-  (ql:quickload :com.informatimago.game.mine))
-
-
-(in-package "COM.INFORMATIMAGO.GAME.MINE-WEB-PLAYER")
-
-
-(defun ps ()
-  #+sbcl
-  (dolist (thread (sb-thread:list-all-threads))
-    (format t "~40A ~:[dead ~;alive~]~%"
-            (sb-thread:thread-name thread)
-            (sb-thread:thread-alive-p thread)))
-  (values))
-
-(defun ns ()
-  #+sbcl
-  (sb-ext:run-program "/bin/netstat" (list "-tnpl") :output t)
-  (values))
-
-(start-server)
-(ps)
-(ns)
-
-
-;;;; THE END ;;;;
ViewGit