Index: /branches/x8664-call/ccl/compiler/X86/x862.lisp
===================================================================
--- /branches/x8664-call/ccl/compiler/X86/x862.lisp	(revision 6317)
+++ /branches/x8664-call/ccl/compiler/X86/x862.lisp	(revision 6318)
@@ -5292,5 +5292,6 @@
                          (:long (frag-list-push-32 frag-list val))
                          (:quad (frag-list-push-64 frag-list val))
-                         (:align (finish-frag-for-align frag-list val))))
+                         (:align (finish-frag-for-align frag-list val))
+                         (:talign (finish-frag-for-talign frag-list val))))
                      (let* ((pos (frag-list-position frag-list))
                             (frag (frag-list-current frag-list))
@@ -5305,5 +5306,5 @@
                          (:quad (frag-list-push-64 frag-list 0)
                                 (setq reloctype :expr64))
-                         (:align (error ":align expression ~s not constant" arg)))
+                         ((:align :talign) (error "~s expression ~s not constant" directive arg)))
                        (when reloctype
                          (push
@@ -8207,5 +8208,4 @@
            (*x862-top-vstack-lcell* *x862-top-vstack-lcell*))
       (x862-open-undo $undostkblk)      ; tsp frame created by nthrow.
-      (! save-cleanup-context (aref *backend-labels* cleanup-label))
       (x862-vpush-register seg x8664::ra0)
       (x862-form seg nil nil cleanup-form)