Commit f5b834ec authored by pfdietz's avatar pfdietz
Browse files

Added plea for help to change-class.6.3

parent f10d61e8
......@@ -156,6 +156,7 @@
(eval
'(let ((obj (make-instance 'change-class-class-01a))
(new-class (find-class 'change-class-class-01b)))
(declare (optimize (safety 3)))
(eqt obj (change-class obj new-class :nonsense t))))
(error () :expected-error))
:expected-error)
......@@ -418,6 +419,11 @@
(t nil nil)
123)
;;
;; This next test seems to fail everywhere, but I don't understand why.
;; Much gratitude if someone can explain what's wrong here.
;;
(deftest change-class.6.3
(let* ((class (find-class 'change-class-class-06))
(obj (make-instance class :a 'bad)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment