Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

adding asdf-install'able + package

  • Loading branch information...
commit a5643569dd5e2b1a70eef7655af495d9d4efacc0 1 parent 7aa67c3
Shetty authored Naveen Sundar G. committed
Showing with 41 additions and 2 deletions.
  1. +2 −2 actors.lisp
  2. +21 −0 cl-actors.asd
  3. +18 −0 package.lisp
4 actors.lisp
View
@@ -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)
21 cl-actors.asd
View
@@ -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"))))
+
+
18 package.lisp
View
@@ -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))
Please sign in to comment.
Something went wrong with that request. Please try again.