From b8686731d512b199680601a912ed8defbf9c98f1 Mon Sep 17 00:00:00 2001 From: Marius Gerbershagen Date: Fri, 29 Dec 2017 17:09:17 +0100 Subject: [PATCH] fix broken test equalp.36 --- data-and-control-flow/equalp.lsp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/data-and-control-flow/equalp.lsp b/data-and-control-flow/equalp.lsp index 1b00b8d..3a4ac2b 100644 --- a/data-and-control-flow/equalp.lsp +++ b/data-and-control-flow/equalp.lsp @@ -284,12 +284,12 @@ (defclass equalp-class-36 () ((slot1 :initarg :slot1) (slot2 :initarg :slot2))) -;;; If structure is baked up by an instance, it may happen that +;;; If structure is backed 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)) + (equalp (make-instance 'equalp-class-36 :slot1 1 :slot2 2) + (make-instance 'equalp-class-36 :slot1 1 :slot2 2)) nil) (deftest equalp.order.1 -- GitLab