-; FIXME: Write the alist in a more natural form once #72 has been fixed
-(test (equal (cons (cons 1 2) (list (cons 3 4)))
- (acons 1 2 (list (cons 3 4)))))
-(test (equal (list (cons 1 2)) (acons 1 2 ())))
+(test (equal '((1 . 2) (3 . 4))
+ (acons 1 2 '((3 . 4)))))
+(test (equal '((1 . 2)) (acons 1 2 ())))