From c656cf912e32f394a525d970bce7b08e47f06333 Mon Sep 17 00:00:00 2001
From: "Paul A. Patience" <paul@apatience.com>
Date: Sun, 4 Jul 2021 23:38:07 -0400
Subject: genman, lib, tests: use defvarl where possible.

* genman.txr (dupes, tagnum): Replace defvar with defvarl.

* stdlib/doc-lookup.tl (os-symbol): Same.

* tests/011/macros-3.tl (x): Same.

* tests/011/mandel.txr (x-centre, y-centre, width, i-max, j-max, n)
(r-max, pixel-size, x-offset, y-offset): Same.
(file, colour-max): Delete (unused) variables.

* tests/012/circ.tl (x): Replace defvar with defvarl.

* tests/012/stack.tl (stack-limited): Same.

* tests/012/struct.tl (s): Same.

* tests/013/maze.tl (vi, pa, sc): Delete variables. Use
function arguments instead.
(usage): Fix typo.

* tests/014/dgram-stream.tl (family): Rename to...
(*family*): ...this.

* tests/014/socket-basic.tl (socktype): Rename to...
(*socktype*): ...this.
(%iters%): Replace defvar with defvarl.
---
 tests/014/socket-basic.tl | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'tests/014/socket-basic.tl')

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"))))
-- 
cgit v1.2.3