Changeset 897

Timestamp:

Feb 15, 2005, 5:52:14 PM (20 years ago)

Author:

bryan

Message:

clhs 22.1.3.1.4 says a complex number is printed started with #C.

File:

• trunk/ccl/level-1/l1-io.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-io.lisp

@@ -572 +572 @@
 ;;>> Doesn't do *print-level* truncation
 (defmethod print-object ((c complex) stream)
-  (pp-start-block stream "#c(")
+  (pp-start-block stream "#C(")
   (print-object (realpart c) stream)
   (pp-space stream)