From c21872c40b0e032188d803421cfaf47b3f043b69 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 30 Jan 2022 22:22:45 -0800 Subject: 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. --- stdlib/asm.tl | 1 + stdlib/awk.tl | 1 + stdlib/build.tl | 1 + stdlib/compiler.tl | 1 + stdlib/copy-file.tl | 1 + stdlib/debugger.tl | 1 + stdlib/doloop.tl | 1 + stdlib/each-prod.tl | 1 + stdlib/error.tl | 1 + stdlib/except.tl | 1 + stdlib/ffi.tl | 1 + stdlib/getopts.tl | 1 + stdlib/getput.tl | 1 + stdlib/hash.tl | 1 + stdlib/ifa.tl | 1 + stdlib/match.tl | 1 + stdlib/op.tl | 1 + stdlib/package.tl | 1 + stdlib/param.tl | 1 + stdlib/path-test.tl | 1 + stdlib/pic.tl | 1 + stdlib/place.tl | 1 + stdlib/pmac.tl | 1 + stdlib/quips.tl | 1 + stdlib/save-exe.tl | 1 + stdlib/socket.tl | 1 + stdlib/stream-wrap.tl | 1 + stdlib/tagbody.tl | 1 + stdlib/termios.tl | 1 + stdlib/trace.tl | 1 + stdlib/txr-case.tl | 1 + stdlib/type.tl | 1 + stdlib/vm-param.tl | 1 + stdlib/with-resources.tl | 1 + stdlib/with-stream.tl | 1 + stdlib/yield.tl | 1 + 36 files changed, 36 insertions(+) (limited to 'stdlib') 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) -- cgit v1.2.3