Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 7af621c)
tests: mop-dependents: remove typo (?)
authorDaniel Kochmański <daniel@turtleware.eu>
Thu, 13 Aug 2015 12:13:44 +0000 (14:13 +0200)
committerDaniel Kochmański <daniel@turtleware.eu>
Thu, 13 Aug 2015 12:13:44 +0000 (14:13 +0200)
Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
src/tests/bugs/doit.lsp patch | blob | blame | history
src/tests/bugs/mop-dependents.lsp patch | blob | blame | history

diff --git a/src/tests/bugs/doit.lsp b/src/tests/bugs/doit.lsp
index b4780d1..1f8b527 100644 (file)
--- a/src/tests/bugs/doit.lsp
+++ b/src/tests/bugs/doit.lsp
@@ -71,8 +71,8 @@
    (load "eformat-002.lsp"))
  (load "eformat-001.lsp"))
 
-(setf sb-rt::*expected-failures*
-      (nconc sb-rt::*expected-failures*
-             '(MOP-GF-ADD/REMOVE-DEPENDENT)))
+;; (setf sb-rt::*expected-failures*
+;;       (nconc sb-rt::*expected-failures*
+;;              '(MOP-GF-ADD/REMOVE-DEPENDENT)))
 
 (time (sb-rt:do-tests))
diff --git a/src/tests/bugs/mop-dependents.lsp b/src/tests/bugs/mop-dependents.lsp
index 288159f..a231635 100644 (file)
--- a/src/tests/bugs/mop-dependents.lsp
+++ b/src/tests/bugs/mop-dependents.lsp
@@ -82,7 +82,7 @@
                 (equalp l3
                         (list (list f 'remove-method m1)
                               (list f 'add-method m1)
-                              (list f :name 'mop-gf-add/remove-dependent)))
+                              (list f)))
                 (null l4)
                 (eq l5 l3)
                 (eq l6 l3)
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)