adding asdf-install'able + package

actors.lisp

@@ -1,4 +1,4 @@
-(use-package :bordeaux-threads)
+(in-package #:cl-actors)
 
 ; Create a behavior that can be attached to any actor
 (defmacro behav (state vars  &body body)
@@ -59,4 +59,4 @@
 (defun pr (x) (print x #.*standard-output*))
 
 ;A printing actor 
-(defactor printer () (x) (pr x) next)
+(defactor printer () (x) (pr x) next)

cl-actors.asd

@@ -0,0 +1,21 @@
+;;;;===========================================================================
+;;;; @file   cl-actors.asd
+;;;; @author Nikhil Shetty <nikhil.j.shetty@gmail.com>
+;;;; @date   Thu May  6 00:19:07 2010
+;;;;
+;;;; @brief asdf-install package file for cl-actors
+;;;;===========================================================================        
+
+(defpackage #:cl-actors-asd (:use #:asdf #:cl))
+(in-package :cl-actors-asd)
+
+(defsystem cl-actors
+  :author      "Nikhil Shetty <nikhil.j.shetty@gmail.com>"
+  :version     "1.0"
+  :licence     "GPL"
+  :description ""
+  :depends-on ("bordeaux-threads")
+  :components ((:file "package")
+               (:file "actors" :depends-on ("package"))))
+
+

package.lisp

@@ -0,0 +1,18 @@
+;;;; --------------------------------------------------------------------------
+;;;; @file   package.lisp
+;;;; @author Nikhil J. Shetty <nikhil.j.shetty@gmail.com> 
+;;;; @date   Thu May  6 00:32:51 2010
+;;;;
+;;;; @brief  Package definitions
+;;;; --------------------------------------------------------------------------
+(in-package #:cl-user)
+
+(defpackage #:cl-actors
+  (:use #:cl
+        #:bordeaux-threads)
+  (:export :defactor
+           :next
+           :behav
+           :send
+           :stop-actor
+           :printer))