Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
ansi-test
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
Karsten Poeck
ansi-test
Commits
23cea748
Commit
23cea748
authored
Mar 14, 2005
by
pfdietz
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Add rule for NOT types to make-random-element-of-type
parent
50dbcc4b
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
0 deletions
+4
-0
ansi-tests/random-int-form.lsp
ansi-tests/random-int-form.lsp
+4
-0
No files found.
ansi-tests/random-int-form.lsp
View file @
23cea748
...
...
@@ -1134,6 +1134,10 @@
when (typep x (cons 'and (cddr type)))
return x
finally (error "Cannot generate random element of ~A" type)))
(not
(assert (cdr type))
(assert (not (cddr type)))
(make-random-element-of-type `(and t ,type)))
(integer
(let ((lo (let ((lo (cadr type)))
(cond
...
...
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