[fix] result-type FUNCTION need not signal TYPE-ERROR

digikar99 · Sep 5, 2021 · 1885b96 · 1885b96
1 parent 681d01c
commit 1885b96
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/tests.lisp b/tests.lisp
@@ -41,9 +41,10 @@
   (def-stub to-long-float long-float))
 
 (def-test to-function ()
+  ;; http://clhs.lisp.se/Body/f_coerce.htm
   (is (eq (fdefinition 'coerce) (coerce 'coerce 'function)))
   (is (functionp (coerce '(lambda ()) 'function)))
-  (signals type-error (coerce '(progn (lambda ())) 'function)))
+  (signals error (coerce '(progn (lambda ())) 'function)))
 
 (def-test to-string ()
   (is (string= "A" (coerce 'a 'string)))