Skip to content
Snippets Groups Projects
Commit 2bc50b43 authored by wlott's avatar wlott
Browse files

Fixed the proclaim of continuation-type to return a ctype, not a type.

parent 230045d6
No related branches found
No related tags found
No related merge requests found
...@@ -134,7 +134,7 @@ ...@@ -134,7 +134,7 @@
;;; Return the derived type for Cont's first value. This is guaranteed not ;;; Return the derived type for Cont's first value. This is guaranteed not
;;; to be a Values or Function type. ;;; to be a Values or Function type.
;;; ;;;
(proclaim '(function continuation-type (continuation) type)) (proclaim '(function continuation-type (continuation) ctype))
(defun continuation-type (cont) (defun continuation-type (cont)
(single-value-type (continuation-derived-type cont))) (single-value-type (continuation-derived-type cont)))
......
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