Subject: Re: OO-Browser does not understand Lisp defstruct options?
From: (Rob Warnock)
Date: 2000/07/23
Newsgroups: comp.emacs.xemacs,comp.lang.lisp
Message-ID: <8ldnks$89170$>
Jean-Louis Leroy  <> wrote:
| (defstruct (test (:print-function my-print-test))
|   x)
| (defun my-print-test (atest stream depth)
|   (print "ok" stream))
| ...oo-browser says "invalid feature entry, `[structure],-(test,
| (defstruct (test'

Neither CLISP nor CMUCL has any problem with it [except that picky ol'
CMUCL complains if you don't have a (declare (ignorable atest depth))]:

	> (defstruct (test (:print-function my-print-test))
	> (defun my-print-test (atest stream depth)
	    (declare (ignorable atest depth))
	    (print "ok" stream))
	> (make-test :x 37)


Rob Warnock, 41L-955
Applied Networking
Silicon Graphics, Inc.		Phone: 650-933-1673
1600 Amphitheatre Pkwy.		PP-ASEL-IA
Mountain View, CA  94043