compare: remove PREVIOUS-NAME, PREVIOUS-INITARGS

Those variables were not used anywhere. * code/compare/float-integer.lisp (float-integer): Remove unused variables PREVIOUS-NAME and PREVIOUS-INITARGS.
s-expressionists · Jun 20, 2024 · 759eb1a · 759eb1a
1 parent daf5841
commit 759eb1a
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/code/compare/float-integer.lisp b/code/compare/float-integer.lisp
@@ -34,7 +34,6 @@
  (loop with value = (quaviver:bits-float *ieee754-client* float-type bits)
  with result
  for (name initargs) on clients by #'cddr
- for (previous-name previous-initargs) on (list* nil nil clients) by #'cddr
  for intrep = (handler-case (multiple-value-list
  (quaviver:float-integer
  (apply #'make-instance initargs) base value))