commit bfae1bdea09eed0d999d136b3e8d451c40f95526 john <john@linux-srhk.suse> 2018-03-26 01:51:34 -0300 Switched to lesser dependencies.
code/multi-internet.asd | 4 ++-- code/multithreading.lisp | 8 ++------ 2 files changed, 4 insertions(+), 8 deletions(-)
diff --git a/code/multi-internet.asd b/code/multi-internet.asd index b423df1..9a033d1 100644 --- a/code/multi-internet.asd +++ b/code/multi-internet.asd @@ -3,10 +3,10 @@ (in-package :multi) (defsystem :multi :description "Multithreaded internet" - :version "0" + :version "1" :author "Spenser Truex <spensertruexonline@gmail.com>" :license "Free" - :depends-on (:drakma :cl-json :bordeaux-threads) + :depends-on (:drakma :uiop :bordeaux-threads) :serial t :components ((:file "packages") (:file "multithreading"))) diff --git a/code/multithreading.lisp b/code/multithreading.lisp index 83dce63..edc16ed 100644 --- a/code/multithreading.lisp +++ b/code/multithreading.lisp @@ -1,9 +1,5 @@ (in-package :multi) -;;; Work on DEFGLOBAL global lexical variables for SBCL, it is requested! -#|(defmacro let-pseudoglobal (bindings &body body) - "Looks like a global, but isn't! Acts like a let. Required for threading lexical variables." - `(let (,@(collect (bind bindings) - (list (car bind) '(gensym))))))|# +;;; Work on DEFGLOBAL global lexical variables for SBCL, it is requested! Let-pseudoglobals was on the right track, but it looks like the compiler must be modified. (defmacro collect (var-and-list &body body) (let ((collector (gensym))) `(let ((,collector nil)) @@ -20,7 +16,7 @@ `(multiple-value-bind ,vars ,value-form ,@body)) -(uiop:chdir (toplevel-dir)) +(uiop::chdir (toplevel-dir)) (defvar *log-file* (get-file-in-toplevel "log" "txt")) (defun log-result (code-result) (with-open-file (s *log-file*