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
12
Issues
12
List
Boards
Labels
Service Desk
Milestones
Merge Requests
4
Merge Requests
4
Operations
Operations
Incidents
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
ansi-test
ansi-test
Commits
0a397b5d
Commit
0a397b5d
authored
Aug 01, 2017
by
Daniel Kochmański
1
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
equalp: add new test for instances
parent
87c8f24a
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
10 additions
and
0 deletions
+10
-0
data-and-control-flow/equalp.lsp
data-and-control-flow/equalp.lsp
+10
-0
No files found.
data-and-control-flow/equalp.lsp
View file @
0a397b5d
...
...
@@ -282,6 +282,16 @@
(not (equalp ht1 ht2))))))
(0 0 0 0))
(defclass equalp-class-36 () ((slot1 :initarg :slot1) (slot2 :initarg :slot2)))
;;; If structure is baked up by an instance, it may happen that
;;; instances are compared like structures for `equalp' - slot by
;;; slot. This was a problem in ECL 16.1.3.
(deftest equalp.36
(equalp (make-instance 'test-object :slot1 1 :slot2 2)
(make-instance 'test-object :slot1 1 :slot2 2))
nil)
(deftest equalp.order.1
(let ((i 0) x y)
(values
...
...
Raymond Toy
@rtoy
·
Aug 06, 2017
Owner
Looks great!
Looks great!
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