[climacs-devel] Case missing from class regexp's print-object method

[Christophe Rhodes]

Aleksandar Bakic <a_bakic at yahoo.com> writes:

> Perhaps Christophe can comment on the difference. Could SBCL be asked to behave
> like CMUCL in this regard? 

Below.  This looks like a reasonable request.

Cheers,

Christophe

Index: src/code/ntrace.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/ntrace.lisp,v
retrieving revision 1.39
diff -u -r1.39 ntrace.lisp
--- src/code/ntrace.lisp        5 Aug 2005 21:14:32 -0000       1.39
+++ src/code/ntrace.lisp        30 Aug 2005 06:28:15 -0000
@@ -265,7 +265,8 @@
                ;; with DEFVAR.
                (locally
                  (declare (special basic-definition arg-list))
-                 (prin1 `(,(trace-info-what info) , at arg-list)))
+                 (prin1 `(,(trace-info-what info)
+                          ,@(mapcar #'ensure-printable-object arg-list))))
                (print-frame-call frame *standard-output*))
            (terpri)
            (trace-print frame (trace-info-print info))
@@ -308,7 +309,7 @@
             (dolist (v *trace-values*)
               (write-char #\space)
               (pprint-newline :linear)
-              (prin1 v)))
+              (prin1 (ensure-printable-object v))))
           (terpri)
           (trace-print frame (trace-info-print-after info))
           (write-sequence (get-output-stream-string *standard-output*)