Update for nontrivial-gray-streams

.github/workflows/test.yml

@@ -23,11 +23,11 @@ jobs:
     container:
       image: ghcr.io/yitzchak/archlinux-cl:latest
     steps:
-    - name: Checkout trivial-stream-column
+    - name: Checkout nontrivial-gray-streams
       uses: actions/checkout@v4
       with:
-        repository: yitzchak/trivial-stream-column
-        path: trivial-stream-column
+        repository: yitzchak/nontrivial-gray-streams
+        path: nontrivial-gray-streams
     - name: Checkout Incless
       uses: actions/checkout@v4
       with:

README.md

@@ -10,9 +10,9 @@ implementations that this system has been tested on.
 
 In addition to a clone of this repository in a location that is
 discoverable by ASDF you will also need a clone of
-[trivial-stream-column][].  Incless does not implement pretty printing
-or `format`. These systems are implemented by [Inravina][] and
-[Invistra][] which work in coordination with Incless.
+[nontrivial-streams-streams][].  Incless does not implement pretty
+printing or `format`. These systems are implemented by [Inravina][]
+and [Invistra][] which work in coordination with Incless.
 
 # Usage
 
@@ -57,5 +57,5 @@ NIL
 [Invistra]: https://github.com/s-expressionists/Invistra
 [SBCL]: http://sbcl.org
 [SICL]: https://github.com/robert-strandh/SICL
-[trivial-stream-column]: https://github.com/yitzchak/trivial-stream-column
+[nontrivial-gray-streams]: https://github.com/yitzchak/nontrivial-gray-streams
 

src/integer.lisp

@@ -106,7 +106,7 @@
      (write-string "#x" stream))
     (otherwise
      (write-char #\# stream)
-     (write-integer-digits *print-base* 10 stream)
+     (write-integer-digits-alt *print-base* 10 stream)
      (write-char #\r stream))))
 
 (defun write-sign (integer stream)
@@ -123,9 +123,9 @@
            (write-char (char *digit-chars* 0) stream))
           ((minusp integer)
            (write-sign integer stream)
-           (write-integer-digits (- integer) base stream))
+           (write-integer-digits-alt (- integer) base stream))
           (t
-           (write-integer-digits integer base stream)))
+           (write-integer-digits-alt integer base stream)))
     ;; Determine whether a trailing dot should be printed.
     (when (and radix (= base 10))
       (write-char #\. stream))))