[CM] CLM->CMN problem

Bill Schottstaedt bil@ccrma.Stanford.EDU
Thu, 20 Feb 2003 02:54:57 -0800

I take it you're using cmn-store to create hi.cmn, and that the
bug is that the color is lost in that case?  You can fix this by
adding identify-color, and including it in the-usual-suspects:

;;; in cmn-objects.lisp:
(defun identify-color (obj &optional file)
  (if (color obj)
      (format file " (color '~A)" (color obj))

;;; in cmn1.lisp:
(defun the-usual-suspects (object)
  (format nil "~A~A~A~A~A"
	  (identify-marks object)
  	  (check-for-cmn-store-tag object)
  	  (identify-matrix object)
 	  (identify-color object)
  	  (identify-visible object)))

I made these changes in the cmn tarball.