Subject: Re: OO-Browser does not understand Lisp defstruct options?
From: rpw3@rigden.engr.sgi.com (Rob Warnock)
Date: 2000/07/23
Newsgroups: comp.emacs.xemacs,comp.lang.lisp
Message-ID: <8ldnks$89170$1@fido.engr.sgi.com>
Jean-Louis Leroy  <jll@skynet.be> 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))
	    x)
	TEST
	> (defun my-print-test (atest stream depth)
	    (declare (ignorable atest depth))
	    (print "ok" stream))
	MY-PRINT-TEST
	> (make-test :x 37)
	"ok" 
	> 


-Rob

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