Fix Lisp package locking

2021-12-08 12:32:27 -06:00 · 2021-12-08 12:32:27 -06:00 · 9e38c72d03
commit 9e38c72d03
parent e339bd98fd
1 changed files with 5 additions and 2 deletions
--- a/test.lisp
+++ b/test.lisp
@ -1,7 +1,10 @@
 ;; Common Lisp

-(defun gcd (a b)
-    (if (> b 0) (gcd b (mod a b)) a)
+(require '#:package-locks)
+(ext:without-package-locks
+    (defun gcd (a b)
+        (if (> b 0) (gcd b (mod a b)) a)
+    )
 )

 (princ "test")