2 files changed, 9 insertions, 9 deletions
diff --git a/tests/014/dgram-stream.tl b/tests/014/dgram-stream.tl
index 5902a84d..6890e300 100644
--- a/tests/014/dgram-stream.tl
+++ b/tests/014/dgram-stream.tl
@@ -1,7 +1,7 @@
 (load "../common.tl")
 (load "../sock-common.tl")
 
-(defvar family)
+(defvar *family*)
 
 (defun server (svc-sock)
   (whilet ((acc-sock (sock-accept svc-sock))
@@ -10,7 +10,7 @@
     (close-stream acc-sock)))
 
 (defun client (addr)
-  (with-stream (cli-sock (open-socket family sock-dgram))
+  (with-stream (cli-sock (open-socket *family* sock-dgram))
     (sock-connect cli-sock addr)
     (dotimes (i 1000)
       (print i cli-sock)
@@ -22,7 +22,7 @@
     (flush-stream cli-sock)))
 
 (defun dgram-test ()
-  (let* ((svc-sock (open-socket family sock-dgram))
+  (let* ((svc-sock (open-socket *family* sock-dgram))
          (svc-addr (bindfree svc-sock 1025 65535))
          (server-pid (fork)))
     (cond
@@ -37,6 +37,6 @@
          (fboundp 'fork))
   (let ((maybe-ipv6 (if (memq (os-symbol) '(:linux :macos :cygwin :cygnal))
                       (list af-inet6))))
-    (each ((family ^(,af-inet ,*maybe-ipv6)))
+    (each ((*family* ^(,af-inet ,*maybe-ipv6)))
       (unless (dgram-test)
         (error "test failed")))))
diff --git a/tests/014/socket-basic.tl b/tests/014/socket-basic.tl
index 1b4464fb..ae591c9b 100644
--- a/tests/014/socket-basic.tl
+++ b/tests/014/socket-basic.tl
@@ -1,12 +1,12 @@
 (load "../sock-common.tl")
 (load "../common.tl")
 
-(defvar socktype)
+(defvar *socktype*)
 
-(defvar %iters% (if (meql (os-symbol) :macos :openbsd) 2000 5000))
+(defvarl %iters% (if (meql (os-symbol) :macos :openbsd) 2000 5000))
 
 (defun client (addr)
-  (with-stream (cli-sock (open-socket af-inet socktype))
+  (with-stream (cli-sock (open-socket af-inet *socktype*))
     (sock-connect cli-sock addr)
     (put-string "5000" cli-sock)
     (sock-shutdown cli-sock)
@@ -19,7 +19,7 @@
     (close-stream acc-sock)))
 
 (defun sock-test ()
-  (let* ((svc-sock (open-socket af-inet socktype))
+  (let* ((svc-sock (open-socket af-inet *socktype*))
          (svc-addr (bindfree svc-sock 1025 65535))
          (child-pid (fork)))
     (cond
@@ -29,6 +29,6 @@
 
 (if (and (fboundp 'open-socket)
          (fboundp 'fork))
-  (each ((socktype (list sock-dgram sock-stream)))
+  (each ((*socktype* (list sock-dgram sock-stream)))
     (unless (sock-test)
       (error "test failed"))))