Changeset 11366

Timestamp:

Nov 15, 2008, 2:31:08 PM (12 years ago)

Author:

gz

Message:

Regression test for reader method unsnapping

File:

• trunk/tests/ansi-tests/ccl.lsp (modified) (1 diff)

trunk/tests/ansi-tests/ccl.lsp

@@ -641 +641 @@
       (ccl.50646-gf 23))
   23)
+
+(deftest ccl.50911
+    (progn
+      (defclass ccl.50911-class () ((slot-a :initarg :a :reader ccl.50911-slot-a)))
+      (ccl::%snap-reader-method #'ccl.50911-slot-a)
+      (ccl:finalize-inheritance (find-class 'ccl.50911-class))
+      (ccl.50911-slot-a (make-instance 'ccl.50911-class :a :test)))
+  :test)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;