/[cmucl]/src/compiler/ir1opt.lisp
ViewVC logotype

Diff of /src/compiler/ir1opt.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by wlott, Fri Aug 24 18:35:27 1990 UTC revision 1.14 by wlott, Thu Sep 6 17:38:33 1990 UTC
# Line 134  Line 134 
134  ;;;    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
135  ;;; to be a Values or Function type.  ;;; to be a Values or Function type.
136  ;;;  ;;;
137  (proclaim '(function continuation-type (continuation) type))  (proclaim '(function continuation-type (continuation) ctype))
138  (defun continuation-type (cont)  (defun continuation-type (cont)
139    (single-value-type (continuation-derived-type cont)))    (single-value-type (continuation-derived-type cont)))
140    

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

  ViewVC Help
Powered by ViewVC 1.1.5