Index: /trunk/ccl/compiler/vreg.lisp
===================================================================
--- /trunk/ccl/compiler/vreg.lisp	(revision 368)
+++ /trunk/ccl/compiler/vreg.lisp	(revision 369)
@@ -190,4 +190,6 @@
     (:u32 . ,arch::storage-class-u32)
     (:s32 . ,arch::storage-class-s32)
+    (:u64 . ,arch::storage-class-u64)
+    (:s64 . ,arch::storage-class-s64)
     (:address . ,arch::storage-class-address)
     (:single-float . ,arch::storage-class-single-float)
@@ -197,5 +199,5 @@
     (:crf . ,arch::storage-class-crf)
     (:crbit . ,arch::storage-class-crbit)
-    (:crfbit . ,arch::storage-class-crfbit)
+    (:crfbit . ,arch::storage-class-crfbit)   
     (t . nil)))