;;; 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