Diff of /src/code/pred.lisp [bae5da] .. [c23e4d] Maximize Restore

  Switch to side-by-side view

--- a/src/code/pred.lisp
+++ b/src/code/pred.lisp
@@ -91,18 +91,31 @@
   (def-type-predicate-wrapper system-area-pointer-p)
   (def-type-predicate-wrapper weak-pointer-p)
   (def-type-predicate-wrapper vectorp)
+  ;#!+#.(cl:if (cl:= 32 sb!vm:n-word-bits) '(and) '(or))
   (def-type-predicate-wrapper unsigned-byte-32-p)
+  ;#!+#.(cl:if (cl:= 32 sb!vm:n-word-bits) '(and) '(or))
   (def-type-predicate-wrapper signed-byte-32-p)
+  #!+#.(cl:if (cl:= 64 sb!vm:n-word-bits) '(and) '(or))
+  (def-type-predicate-wrapper unsigned-byte-64-p)
+  #!+#.(cl:if (cl:= 64 sb!vm:n-word-bits) '(and) '(or))
+  (def-type-predicate-wrapper signed-byte-64-p)
   (def-type-predicate-wrapper simple-array-nil-p)
   (def-type-predicate-wrapper simple-array-unsigned-byte-2-p)
   (def-type-predicate-wrapper simple-array-unsigned-byte-4-p)
   (def-type-predicate-wrapper simple-array-unsigned-byte-8-p)
   (def-type-predicate-wrapper simple-array-unsigned-byte-16-p)
   (def-type-predicate-wrapper simple-array-unsigned-byte-32-p)
+  #!+#.(cl:if (cl:= 64 sb!vm:n-word-bits) '(and) '(or))
+  (def-type-predicate-wrapper simple-array-unsigned-byte-64-p)
   (def-type-predicate-wrapper simple-array-signed-byte-8-p)
   (def-type-predicate-wrapper simple-array-signed-byte-16-p)
+  #!+#.(cl:if (cl:= 32 sb!vm:n-word-bits) '(and) '(or))
   (def-type-predicate-wrapper simple-array-signed-byte-30-p)
   (def-type-predicate-wrapper simple-array-signed-byte-32-p)
+  #!+#.(cl:if (cl:= 64 sb!vm:n-word-bits) '(and) '(or))
+  (def-type-predicate-wrapper simple-array-signed-byte-61-p)
+  #!+#.(cl:if (cl:= 64 sb!vm:n-word-bits) '(and) '(or))
+  (def-type-predicate-wrapper simple-array-signed-byte-64-p)
   (def-type-predicate-wrapper simple-array-single-float-p)
   (def-type-predicate-wrapper simple-array-double-float-p)
   #!+long-float (def-type-predicate-wrapper simple-array-long-float-p)