* goops/save.scm (write-readably): rename list* to cons*.

diff --git a/oop/goops/save.scm b/oop/goops/save.scm
index fa13778..10d1930 100644 (file)
--- a/oop/goops/save.scm
+++ b/oop/goops/save.scm
@@ -307,7 +307,7 @@
     (display (cond ((not not-literal?) #\()
                   (proper? "(list ")
                   (1? "(cons ")
-                  (else "(list* "))
+                  (else "(cons* "))
             file)
     (if (and not-literal?
             (literal? (car o) env))