Changeset 11366


Ignore:
Timestamp:
Nov 15, 2008, 2:31:08 PM (11 years ago)
Author:
gz
Message:

Regression test for reader method unsnapping

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tests/ansi-tests/ccl.lsp

    r11350 r11366  
    641641      (ccl.50646-gf 23))
    642642  23)
     643
     644(deftest ccl.50911
     645    (progn
     646      (defclass ccl.50911-class () ((slot-a :initarg :a :reader ccl.50911-slot-a)))
     647      (ccl::%snap-reader-method #'ccl.50911-slot-a)
     648      (ccl:finalize-inheritance (find-class 'ccl.50911-class))
     649      (ccl.50911-slot-a (make-instance 'ccl.50911-class :a :test)))
     650  :test)
    643651
    644652;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Note: See TracChangeset for help on using the changeset viewer.