16 lines
339 B
Plaintext
16 lines
339 B
Plaintext
;;; woz 4/27/87 test for COMMON - 8168
|
|
(do-test "#n# reads properly"
|
|
(consp (cdr #1='("This structure is circular" . #1#)))
|
|
)
|
|
|
|
;;; test for COMMON - 7610
|
|
(do-test "Guy Steele Jr. memorial test case"
|
|
(setq foo '(bar baz))
|
|
(setq bar '(barola))
|
|
(setq baz '(bazola alozab))
|
|
(equal (eval ``(,@,@foo)) '(barola bazola alozab))
|
|
)
|
|
|
|
stop
|
|
|