Permalink
Browse files

lisp: disable again something's wrong with threading and GC

  • Loading branch information...
1 parent 6115eb7 commit 1e70c165b581e4680f60117eb549191e4c7792af @meh meh committed Apr 20, 2011
Showing with 7 additions and 7 deletions.
  1. +2 −2 craftd.conf.dist.in
  2. +1 −1 scripting/lisp/lib/craftd.asd
  3. +4 −4 scripting/lisp/scripts/joined.asd
View
@@ -98,15 +98,15 @@ server: {
paths: ["scripting", "@libdir@/craftd/scripting"];
engines: (
- { name: "lisp";
+ /* { name: "lisp";
paths: ["scripting/lisp/lib", "scripting/lisp/scripts", "@libdir@/craftd/scripting/lisp", "@libdir@/craftd/scripting/lisp/lib"];
options: [];
shell: false;
scripts: ["joined"];
- },
+ }, */
{ name: "javascript";
paths: ["scripting/javascript/lib", "scripting/javascript/scripts", "@libdir@/craftd/scripting/javascript", "@libdir@/craftd/scripting/javascript/lib"];
@@ -1,7 +1,7 @@
(defpackage #:craftd
(:use #:cl #:asdf))
-(in-package :craftd)
+(in-package craftd)
(unless (find :unicode *features*)
(error "Please build ECL with unicode support (configure --enable-unicode)"))
@@ -1,8 +1,8 @@
(defsystem :joined
:version "0.1")
-(craftd:register :Client.connect #'(lambda (client)
- (format t "~a connected~%" (craftd:client-ip client))))
-
(craftd:register :Player.login #'(lambda (player status)
- (format t "~a joined the game~%" (craftd:player-username player))))
+ (format t "~s (~s) joined the game~%" (craftd:player-username player) '(craftd:player-ip player))))
+
+(craftd:register :Player.logout #'(lambda (player status)
+ (format t "~s (~s) left the game~%" (craftd:player-username player) '(craftd:player-ip player))))

0 comments on commit 1e70c16

Please sign in to comment.