The group you are posting to is a Usenet group. Messages posted to this group will make your email address visible to anyone on the Internet.
Your reply message has not been sent.
Your post was successful
 |
Newsgroups: comp.lang.lisp
From: Erik Naggum <e...@naggum.no>
Date: 2000/06/14
Subject: Re: Readable hash tables
* 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) | 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 | posting. 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 #:Erik 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.
| |||||||||||||