Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
54e36b45
Commit
54e36b45
authored
Jun 07, 2004
by
pfdietz
Browse files
Two more backquote related tests for cases that might come out as BQ-LIST*
parent
f8058fbe
Changes
1
Hide whitespace changes
Inline
Side-by-side
ansi-tests/print-cons.lsp
View file @
54e36b45
...
@@ -137,6 +137,36 @@
...
@@ -137,6 +137,36 @@
nconc (randomly-check-readability (list (car x)) :test #'is-similar))))
nconc (randomly-check-readability (list (car x)) :test #'is-similar))))
nil)
nil)
(deftest print.backquote.random.10
(let ((x '`#(,a , .b)))
(loop
repeat 20
nconc (randomly-check-readability x :test #'is-similar)))
nil)
(deftest print.backquote.random.11
(let ((x '`#(,a , @b)))
(loop
repeat 20
nconc (randomly-check-readability x :test #'is-similar)))
nil)
(deftest print.backquote.random.12
(let ((x '`#(,a ,b c)))
(and (consp x)
(symbolp (car x))
(loop
repeat 20
nconc (randomly-check-readability (list (car x)) :test #'is-similar))))
nil)
(deftest print.backquote.random.13
(let ((x '`#(,a ,b c)))
(loop
repeat 20
nconc (randomly-check-readability x :test #'is-similar)))
nil)
;; random circular cons graphs
;; random circular cons graphs
(deftest print.cons.random.2
(deftest print.cons.random.2
(loop repeat 50
(loop repeat 50
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment