remove a debugging format

old habits die hard

ulid.lisp

@@ -56,7 +56,6 @@
       (if (equal now (slot-value last 'time))
           (incf (slot-value u 'random))
           (progn
-            (format t "~a~%" random)
             (setf u (make-ulid :time now :random (funcall random +80-bit-maxint+)))
             (setf last u)))
       (let ((bytes (ulid->bytes-seq u)))