Using special variable LAZY:*MEMO-THREAD-SAFE*

dsorokin · Dec 15, 2012 · 0741c24 · 0741c24
1 parent 66e4487
commit 0741c24
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git a/README b/README
@@ -1,6 +1,6 @@
 RECLET -- a recursive LET for Common Lisp
 
-This is close to macro LETREC but different. RECLET recursively defines the variables, not functions. It uses a laziness and SYMBOL-MACROLET to create recursive bindings. Moreover, the recent implementation is thread safe.
+This is close to macro LETREC but different. RECLET recursively defines the variables, not functions. It uses a laziness and SYMBOL-MACROLET to create recursive bindings. To define whether the recursive definitions are thread-safe, set special variable LAZY:*MEMO-THREAD-SAFE* to true.
 
 Example 1: Fibonacci Sequence (using Generic Sequences)
 
@@ -15,7 +15,7 @@ Example 1: Fibonacci Sequence (using Generic Sequences)
                      (delay-seq (seq-cdr fibs))))))))
     fibs))
 
-Example 2: Not-strict Order
+Example 2: Non-strict Order
 
 (reclet
     ((a c)

diff --git a/reclet.lisp b/reclet.lisp
@@ -27,8 +27,7 @@
        (gen-symbol-macrolet (info)
          `(,(getf info :name) (force ,(getf info :gen))))
        (gen-setf (info)
-         `(setf ,(getf info :gen) (delay ,(getf info :value) 
-                                         :thread-safe t)))
+         `(setf ,(getf info :gen) (delay ,(getf info :value))))
        (gen-lets (infos)
          (loop for info in infos collect (gen-let info)))
        (gen-symbol-macrolets (infos)