Diff of /tests/type.pure.lisp [151592] .. [76a10d] Maximize Restore

  Switch to side-by-side view

--- a/tests/type.pure.lisp
+++ b/tests/type.pure.lisp
@@ -195,8 +195,9 @@
                                     'another-unknown-type))))
 
 ;;; bug 46c
-(dolist (fun '(and if))
-  (assert (raises-error? (coerce fun 'function) type-error)))
+(with-test (:name :coerce-function-on-macro)
+  (dolist (fun '(and if))
+    (assert (raises-error? (coerce fun 'function)))))
 
 (dotimes (i 100)
   (let ((x (make-array 0 :element-type `(unsigned-byte ,(1+ i)))))