Skip to content
Snippets Groups Projects
Commit 75514be2 authored by pfdietz's avatar pfdietz
Browse files

Tests that (function ...) type specifiers are accepted in type declarations of variables.

parent 750aff4b
No related branches found
No related tags found
No related merge requests found
...@@ -92,3 +92,13 @@ ...@@ -92,3 +92,13 @@
;;;(deftest function.14 ;;;(deftest function.14
;;; (macrolet ((%f () nil)) (not-mv (typep #'%f 'function))) ;;; (macrolet ((%f () nil)) (not-mv (typep #'%f 'function)))
;;; nil) ;;; nil)
;;; Tests of FUNCTION type specifiers
(deftest function.14
(flet ((%f () nil))
(declare (optimize safety debug))
(let ((f #'%f))
(declare (type (function () null) f))
(funcall f)))
nil)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment