* Ivar Rummelhoff <iva...@math.uio.no>
| I'm so sorry.
| (let ((dispatch
| (let ((tab (copy-pprint-dispatch nil)))
| (set-pprint-dispatch 'hash-table #'hash-print 0 tab)
| (defun mi-write (obj &rest args)
| (let ((*print-pprint-dispatch* dispatch))
| (setf (getf args :pretty) t)
| (apply #'write obj args))))
| should replace the erroneous function by the same name in my previous
Although not strictly erroneous, you don't really know whether the
(apply #'write obj :pretty t args)
as only the first occurrence of a keyword argument is used and any
| Alas, this the new version insists on printing pretty...
Well, you _could_ empty the pprint-dispatch if *print-pretty* is nil
You must Sign in before you can post messages.
To post a message you must first join this group.
Please update your nickname on the subscription settings page before posting.
You do not have the permission required to post.