bug in 2-3-88 beta release?

[jam%entropy.ms@beaver.cs.washington.edu (John Alan McDonald)]

For "beta test release of Febuary 3rd 1988",
the walker chokes on <scl:with-character-style> in the following,
under Symbolics Genera 7.1. This didn't happen in the Aug 87 release.

(defmethod graph-subclasses ((root-class Class)
			     &key
			     (stream *standard-output*)
			     (include-root? t))
  (fresh-line)
  (scl:format-graph-from-root
    (if include-root?
	root-class
	(direct-subclasses root-class))
    #'(lambda (thing stream)
	(scl:with-character-style ('(:fix :roman :very-small))
	  (scl:present thing 'class :stream stream)))
    #'direct-subclasses
    :stream stream
    :root-is-sequence (not include-root?)
    :dont-draw-duplicates t
    :orientation :horizontal
    :border '(:shape :rectangle)
    :column-spacing 8 
    :within-column-spacing -2
    :default-drawing-mode :line
    :test #'eq))


John Alan McDonald, Statistics, GN-22, U of W, Seattle, Wa. 98195
(206) 545 7438, 543 2517
jam@entropy.ms.washington.edu
{decvax,ihnp4,ucbvax!lbl-csam}!uw-beaver!entropy!jam