summaryrefslogtreecommitdiffstats
path: root/tests/012/struct.tl
diff options
context:
space:
mode:
Diffstat (limited to 'tests/012/struct.tl')
-rw-r--r--tests/012/struct.tl30
1 files changed, 14 insertions, 16 deletions
diff --git a/tests/012/struct.tl b/tests/012/struct.tl
index 3eb5563c..209bae71 100644
--- a/tests/012/struct.tl
+++ b/tests/012/struct.tl
@@ -70,24 +70,22 @@
(set *gensym-counter* 0)
(stest (sys:expand '(defstruct (boa x y) nil
(x 0) (y 0)))
- "(sys:make-struct-type 'boa '() '()\n \
- \ '(x y) (lambda (#:g0004))\n \
- \ (lambda (#:g0004)\n \
- \ (let ((#:g0005 (struct-type #:g0004)))\n\
- \ (if (static-slot-p #:g0005 'x)\n \
- \ () (progn (slotset #:g0004 'x\n \
- \ 0)))\n \
- \ (if (static-slot-p #:g0005 'y)\n \
- \ () (progn (slotset #:g0004 'y\n \
- \ 0)))))\n \
- \ (lambda (#:g0004 #:g0006\n \
- \ #:g0007)\n \
- \ (slotset #:g0004 'x\n \
- \ #:g0006)\n \
- \ (slotset #:g0004 'y\n \
+ "(sys:make-struct-type 'boa '() '()\n \
+ \ '(x y) () (lambda (#:g0004)\n \
+ \ (let ((#:g0005 (struct-type #:g0004)))\n \
+ \ (if (static-slot-p #:g0005 'x)\n \
+ \ () (progn (slotset #:g0004 'x\n \
+ \ 0)))\n \
+ \ (if (static-slot-p #:g0005 'y)\n \
+ \ () (progn (slotset #:g0004 'y\n \
+ \ 0)))))\n \
+ \ (lambda (#:g0004 #:g0006\n \
+ \ #:g0007)\n \
+ \ (slotset #:g0004 'x\n \
+ \ #:g0006)\n \
+ \ (slotset #:g0004 'y\n \
\ #:g0007)))")
-
(defstruct (boa x y) nil
(x 0) (y 0))