I think the first three lines of code of the function makelabel in
suprv1.lisp are historical and can be cut out:
(defmfun makelabel (x)
(when (and $dskuse (not $nolabels) (> (incf dcount) $filesize))
(setq dcount 0)
(dsksave))
...
Furthermore, the variables $dskuse and $filesize are no longer in use
and can be cut out too.
A user might be surprised to get after every 8 inputs an error message
when he has the bad luck to assign a value to dskuse:
(%i2) dskuse:10$
(%i3) a$
...
(%i10) a$
$store: first argument must be a string; found: [%i10,%o9,%i9,%o8,%i8,%
o7,%i7,%o6,%i6,%o5,%i5,%o4,%i4,%o3,%i3,%o2,%i2,%o1,%i1]
-- an error. To debug this try: debugmode(true);
Dieter Kaiser