stdlib: missing blank line after copyright header.

Commit 93edcde038209335122964432bd35dee0c2ecb04, made in
August 2021, accidentally removed the blank line after the
copyright header in most stdlib files.

stdlib{asm.tl, awk.tl, build.tl, compiler.tl, copy-file.tl,
debugger.tl, doloop.tl, each-prod.tl, error.tl, except.tl,
ffi.tl, getopts.tl, getput.tl, hash.tl, ifa.tl, match.tl,
op.tl, package.tl, param.tl, path-test.tl, pic.tl, place.tl,
pmac.tl, quips.tl, save-exe.tl, socket.tl, stream-wrap.tl,
tagbody.tl, termios.tl, trace.tl, txr-case.tl, type.tl,
vm-param.tl, with-resources.tl, with-stream.tl, yield.tl}:
Ensure there is a blank line after the copyright header.

36 files changed, 36 insertions, 0 deletions

diff --git a/stdlib/asm.tl b/stdlib/asm.tl
index 42018fb8..96f3f9e8 100644
--- a/stdlib/asm.tl
+++ b/stdlib/asm.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (load "vm-param")
 
 (defstruct oc-base nil
diff --git a/stdlib/awk.tl b/stdlib/awk.tl
index 6854e3cb..87fe96dd 100644
--- a/stdlib/awk.tl
+++ b/stdlib/awk.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (load "conv")
 
 (defstruct sys:awk-state ()
diff --git a/stdlib/build.tl b/stdlib/build.tl
index 43718fe1..3837f43f 100644
--- a/stdlib/build.tl
+++ b/stdlib/build.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (defstruct list-builder ()
   head tail
 
diff --git a/stdlib/compiler.tl b/stdlib/compiler.tl
index c73be316..7d9cb515 100644
--- a/stdlib/compiler.tl
+++ b/stdlib/compiler.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (load "vm-param")
 (load "optimize")
 (load-for (usr:var %const-foldable% "constfun"))
diff --git a/stdlib/copy-file.tl b/stdlib/copy-file.tl
index 69f0f88c..50408aca 100644
--- a/stdlib/copy-file.tl
+++ b/stdlib/copy-file.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (eval-only
   (defsymacro copy-size 65536))
 
diff --git a/stdlib/debugger.tl b/stdlib/debugger.tl
index c3ca1cd4..af17560e 100644
--- a/stdlib/debugger.tl
+++ b/stdlib/debugger.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (defmacro with-disabled-debugging (. forms)
   (let ((state (gensym)))
     ^(let ((,state (dbg-clear dbg-all)))
diff --git a/stdlib/doloop.tl b/stdlib/doloop.tl
index d567279c..0c195fbb 100644
--- a/stdlib/doloop.tl
+++ b/stdlib/doloop.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (defun sys:expand-doloop (f vars cexp body)
   (let ((xvars (mapcar (tc
                          (((:whole w v i s . r))
diff --git a/stdlib/each-prod.tl b/stdlib/each-prod.tl
index 854847c0..4ed8e0dd 100644
--- a/stdlib/each-prod.tl
+++ b/stdlib/each-prod.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (defun sys:vars-check (form vars)
   (unless (listp vars)
     (compile-error form "~s is expected to be variable binding syntax" vars))
diff --git a/stdlib/error.tl b/stdlib/error.tl
index c6f4689f..65381734 100644
--- a/stdlib/error.tl
+++ b/stdlib/error.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (defun sys:dig (ctx)
   (whilet ((form (sys:ctx-form ctx))
            (anc (unless (source-loc form)
diff --git a/stdlib/except.tl b/stdlib/except.tl
index 542ceacb..9a56c816 100644
--- a/stdlib/except.tl
+++ b/stdlib/except.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (defun sys:handle-bad-syntax (item)
   (throwf 'eval-error "~s: bad clause syntax: ~s" 'handle item))
 
diff --git a/stdlib/ffi.tl b/stdlib/ffi.tl
index 4284f9e8..1179509a 100644
--- a/stdlib/ffi.tl
+++ b/stdlib/ffi.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (defmacro sys:dlib-expr (spec)
   (typecase spec
     (null ^(dlopen))
diff --git a/stdlib/getopts.tl b/stdlib/getopts.tl
index 2ecad67b..7a6e1f58 100644
--- a/stdlib/getopts.tl
+++ b/stdlib/getopts.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (defex opt-error error)
 
 (defstruct opt-desc nil
diff --git a/stdlib/getput.tl b/stdlib/getput.tl
index b99f7674..7c5b4542 100644
--- a/stdlib/getput.tl
+++ b/stdlib/getput.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (defun sys:get-buf-common (s bytes seek)
   (let ((b (make-buf 0 0 (min bytes 4096)))
         (o 0))
diff --git a/stdlib/hash.tl b/stdlib/hash.tl
index 82b7c63d..9f5c72ec 100644
--- a/stdlib/hash.tl
+++ b/stdlib/hash.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (defmacro with-hash-iter ((name hash-form : key val) . body)
   (let ((hash (gensym))
         (iter (gensym))
diff --git a/stdlib/ifa.tl b/stdlib/ifa.tl
index 93bc1bd1..e9ec989d 100644
--- a/stdlib/ifa.tl
+++ b/stdlib/ifa.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (defmacro ifa (:env e :form f test then : else)
   (flet ((candidate-p (form)
            (not (or (constantp form e) (symbolp form)))))
diff --git a/stdlib/match.tl b/stdlib/match.tl
index 925f76c3..47593fb3 100644
--- a/stdlib/match.tl
+++ b/stdlib/match.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (defvar *match-form*)
 
 (defvar *match-macro* (hash))
diff --git a/stdlib/op.tl b/stdlib/op.tl
index 819774a9..2754ca0d 100644
--- a/stdlib/op.tl
+++ b/stdlib/op.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (defvar sys:*op-ctx*)
 
 (sys:make-struct-type
diff --git a/stdlib/package.tl b/stdlib/package.tl
index 29904c4b..6a045d2e 100644
--- a/stdlib/package.tl
+++ b/stdlib/package.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (defun sys:name-str (kind sym-or-string)
   (cond
     ((symbolp sym-or-string) (symbol-name sym-or-string))
diff --git a/stdlib/param.tl b/stdlib/param.tl
index 3d3cf420..6beee2b1 100644
--- a/stdlib/param.tl
+++ b/stdlib/param.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (compile-only
   (defstruct param-parser-base nil
     syntax form
diff --git a/stdlib/path-test.tl b/stdlib/path-test.tl
index 7f9f25c7..98ba76f3 100644
--- a/stdlib/path-test.tl
+++ b/stdlib/path-test.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (defun sys:do-path-test (statfun path testfun)
   [testfun (if (typep path 'stat)
              path
diff --git a/stdlib/pic.tl b/stdlib/pic.tl
index 2dfeb435..2d05b319 100644
--- a/stdlib/pic.tl
+++ b/stdlib/pic.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (defun expand-pic-num (fmt val)
   (let* ((zero (or (starts-with "0" fmt)
                    (starts-with "+0" fmt)
diff --git a/stdlib/place.tl b/stdlib/place.tl
index ecad12b7..9716aca6 100644
--- a/stdlib/place.tl
+++ b/stdlib/place.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (defvar *place-clobber-expander* (hash))
 (defvar *place-update-expander* (hash))
 (defvar *place-delete-expander* (hash))
diff --git a/stdlib/pmac.tl b/stdlib/pmac.tl
index 705f3dcc..e530fddc 100644
--- a/stdlib/pmac.tl
+++ b/stdlib/pmac.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (defmacro define-param-expander (keyword
                                   (parms body : (env (gensym)) (form (gensym)))
                                 . forms)
diff --git a/stdlib/quips.tl b/stdlib/quips.tl
index dcaf4b16..c5d0b1e5 100644
--- a/stdlib/quips.tl
+++ b/stdlib/quips.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (defvarl sys:%quips%
   #("TXR was taped live before a studio audience. The laughter is genuine."
     "Exclusive of recycled stuffing, TXR contains new materials only."
diff --git a/stdlib/save-exe.tl b/stdlib/save-exe.tl
index d933610f..1846f9ad 100644
--- a/stdlib/save-exe.tl
+++ b/stdlib/save-exe.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (defun save-exe (path string)
   (let* ((fbuf (file-get-buf txr-exe-path))
          (bs (make-buf-stream fbuf))
diff --git a/stdlib/socket.tl b/stdlib/socket.tl
index 8dfe0040..01c328b5 100644
--- a/stdlib/socket.tl
+++ b/stdlib/socket.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (defstruct sockaddr nil
   canonname ;; from getaddrinfo
   (:static family nil))
diff --git a/stdlib/stream-wrap.tl b/stdlib/stream-wrap.tl
index c2836253..33513b6b 100644
--- a/stdlib/stream-wrap.tl
+++ b/stdlib/stream-wrap.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (defstruct stream-wrap nil
   stream
   (:method put-string (me str)
diff --git a/stdlib/tagbody.tl b/stdlib/tagbody.tl
index 99712d70..6e33b867 100644
--- a/stdlib/tagbody.tl
+++ b/stdlib/tagbody.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (defmacro tagbody (:env env . forms)
   (when forms
     (let* ((tb-id (gensym "tb-id-"))
diff --git a/stdlib/termios.tl b/stdlib/termios.tl
index a1218cf4..06118c3e 100644
--- a/stdlib/termios.tl
+++ b/stdlib/termios.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (defmeth termios set-iflags (tio . values)
   (set-mask tio.iflag . values))
 
diff --git a/stdlib/trace.tl b/stdlib/trace.tl
index f74334e1..92013582 100644
--- a/stdlib/trace.tl
+++ b/stdlib/trace.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (defvar *trace-output* *stdout*)
 
 (defvar sys:*trace-hash* (hash :equal-based))
diff --git a/stdlib/txr-case.tl b/stdlib/txr-case.tl
index 29ebbe51..aedeb253 100644
--- a/stdlib/txr-case.tl
+++ b/stdlib/txr-case.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (defmacro txr-if (name args input : then else)
   (let ((syms (keep-if [andf true symbolp [notf keywordp] [notf (op eq t)]]
                        args))
diff --git a/stdlib/type.tl b/stdlib/type.tl
index 680a4061..2eb7db3d 100644
--- a/stdlib/type.tl
+++ b/stdlib/type.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (defun sys:typecase-expander (form obj clauses)
   (let* ((val (gensym))
          (cond-pairs (collect-each ((cl clauses))
diff --git a/stdlib/vm-param.tl b/stdlib/vm-param.tl
index 6aa89109..57befff0 100644
--- a/stdlib/vm-param.tl
+++ b/stdlib/vm-param.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (defsymacro %lev-size% 1024)
 (defsymacro %max-lev-idx% (pred %lev-size%))
 (defsymacro %lev-bits% 10)
diff --git a/stdlib/with-resources.tl b/stdlib/with-resources.tl
index e3c12c89..d921ae5d 100644
--- a/stdlib/with-resources.tl
+++ b/stdlib/with-resources.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (defmacro with-resources (:form f res-bindings . body)
   (tree-case res-bindings
     (((sym init) . rest)
diff --git a/stdlib/with-stream.tl b/stdlib/with-stream.tl
index 7ee57fd0..5c7a2edc 100644
--- a/stdlib/with-stream.tl
+++ b/stdlib/with-stream.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (defmacro with-out-string-stream ((stream) . body)
   ^(let ((,stream (make-string-output-stream)))
      ,*body
diff --git a/stdlib/yield.tl b/stdlib/yield.tl
index 7d02c71a..476391eb 100644
--- a/stdlib/yield.tl
+++ b/stdlib/yield.tl
@@ -24,6 +24,7 @@
 ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 ;; POSSIBILITY OF SUCH DAMAGE.
+
 (defstruct (sys:yld-item val cont) nil val cont)
 
 (defstruct (sys:rcv-item val cont) nil val cont)