Improve inferred type of form tagbody.
authorJean-Claude Beaudoin <jean.claude.beaudoin@gmail.com>
Mon, 5 Aug 2013 10:46:42 +0000 (06:46 -0400)
committerJean-Claude Beaudoin <jean.claude.beaudoin@gmail.com>
Mon, 5 Aug 2013 10:46:42 +0000 (06:46 -0400)
src/cmp/cmptag.lsp

index fe8f360..c83c950 100644 (file)
   (when (var-ref-ccb tag-var)
     (incf *setjmps*))
   (add-loop-registers body)
-  (make-c1form* 'TAGBODY :local-vars (list tag-var)
-               :args tag-var body))
+  (make-c1form* 'TAGBODY :local-vars (list tag-var) :type 'NULL :args tag-var body))
 
 (defun c2tagbody (tag-loc body)
   (declare (type var tag-loc))