Run of fresh-snapshots for cl-nibbles

Try this locally (using the lintian-brush package):

debcheckout cl-nibbles
cd cl-nibbles
new-upstream --snapshot

Merge these changes:

git pull fresh-snapshots/main
git pull fresh-snapshots/pristine-tar
git pull fresh-snapshots/upstream


Merged new upstream version: 20201208.git8e6b9b4+git20210520.1.dad2524 (was: 20201208.git8e6b9b4).


Branch: main

diff --git a/debian/changelog b/debian/changelog
index a0102a3..2898b6a 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-nibbles (20201208.git8e6b9b4+git20210520.1.dad2524-1) UNRELEASED; urgency=low
+  * New upstream snapshot.
+ -- Debian Janitor <>  Wed, 02 Jun 2021 23:59:20 -0000
 cl-nibbles (20201208.git8e6b9b4-1) unstable; urgency=medium
   * New upstream snapshot
diff --git a/sbcl-opt/x86-64-vm.lisp b/sbcl-opt/x86-64-vm.lisp
index 428f2fd..afb095b 100644
--- a/sbcl-opt/x86-64-vm.lisp
+++ b/sbcl-opt/x86-64-vm.lisp
@@ -64,14 +64,26 @@
                   (result-sc (if signedp 'signed-reg 'unsigned-reg))
                   (result-type (if signedp 'signed-num 'unsigned-num)))
              (flet ((movx (insn dest source source-size)
-                      (if (eq insn 'mov)
-                          `(inst ,insn ,dest ,source)
-                          `(inst ,(case insn (movsxd 'movsx) (movzxd 'movzx) (t insn))
-                                 '(,source-size :qword) ,dest ,source)))
+                      (cond ((eq insn 'mov)
+                             `(inst ,insn ,dest ,source))
+                            ;; (movzx (:dword :qword) dest source) is
+                            ;; no longer allowed on SBCL >
+                            ;; but older versions already supported
+                            ;; this new spelling.
+                            ((and (member insn '(movzx movzxd))
+                                  (eq source-size :dword))
+                             `(inst mov :dword ,dest ,source))
+                            (t
+                             `(inst ,(case insn (movsxd 'movsx) (movzxd 'movzx) (t insn))
+                                    '(,source-size :qword) ,dest ,source))))
                     (swap-tn-inst-form (tn-name)
                       (if (= bitsize 16)
                           `(inst rol ,operand-size ,tn-name 8)
-                          `(inst bswap ,operand-size ,tn-name))))
+                          ;; The '(bswap :dword r)' notation is only
+                          ;; supported on SBCL > 1.5.9.
+                          (if (ignore-errors (sb-ext:assert-version->= 1 5 9 17) t)
+                              `(inst bswap ,operand-size ,tn-name)
+                              `(inst bswap (sb-vm::reg-in-size ,tn-name ,operand-size))))))
                `(define-vop (,name)
                   (:translate ,internal-name)
                   (:policy :fast-safe)

Branch: pristine-tar

diff --git a/ b/
new file mode 100644
index 0000000..8ac4c97
Binary files /dev/null and b/ differ
diff --git a/ b/
new file mode 100644
index 0000000..53c8e99
--- /dev/null
+++ b/
@@ -0,0 +1 @@

Branch: upstream

Tag: upstream/20201208.git8e6b9b4+git20210520.1.dad2524

Diff is too long (more than 200 lines). Download the raw diff.


File lists identical (after any substitutions)

No differences were encountered in the control files

Resulting package

The resulting binary packages can be installed (if you have the apt repository enabled) by running one of:

apt install -t fresh-snapshots cl-nibbles

Lintian Result

Full worker log Full build log Full dist log