Permalink
Browse files

Fixed the errors in the .asd system definition and the style warnings…

… and odd use of parens and spaces.
  • Loading branch information...
1 parent a564356 commit ca6f59f91c414a7817fcfe63d4bb753fe82a2514 @peterhil peterhil committed May 9, 2011
Showing with 7 additions and 7 deletions.
  1. +3 −3 actors.lisp
  2. +1 −1 cl-actors.asd
  3. +3 −3 examples/cell.lisp
View
@@ -46,17 +46,17 @@
(defun stop-actor (actor) (destroy-thread (get-thread actor)))
(defun if-single (x) (if (eq (length x) 1) (car x) x))
-(defun get-thread (actor)(first actor))
+(defun get-thread (actor) (first actor))
(defun get-add (actor) (second actor))
-(defun sink(&rest args) #'sink)
+(defun sink (&rest args) (declare (ignore args)) #'sink)
;Currying.
(defun curry (f &rest args)
(lambda (&rest rem)
(apply f (append rem args) )))
;Easy priting to repl from threads.
-(defun pr (x) (print x #.*standard-output*))
+(defun pr (x) (print x *standard-output*))
;A printing actor
(defactor printer () (x) (pr x) next)
View
@@ -14,7 +14,7 @@
:version "1.0"
:licence "GPL"
:description ""
- :depends-on ("bordeaux-threads")
+ :depends-on (:bordeaux-threads)
:components ((:file "package")
(:file "actors" :depends-on ("package"))))
View
@@ -1,7 +1,7 @@
-(defactor cell (c) ( message)
+(defactor cell (c) (message)
(cond ((get? message) (send (cust message) c))
- ((set? message) (setf c (contents message))))
-next)
+ ((set? message) (setf c (contents message))))
+ next)
(defun make-set (val) `("set" ,val))
(defun make-get (cust) `("get" ,cust))

0 comments on commit ca6f59f

Please sign in to comment.