#3 Can't grok lisp structures

[Eric Dahlman]

clos-brows cannot seem to handle structures like the
following

(defstruct (proposition
(:print-function
(lambda (p s k)
(format s "[~a ~a ~a]" (proposition-tag p)
(proposition-status p)
(proposition-prop p)))))
(tag (gentag "PROP"))
(timestamp (current-time)) ;when encoded/last-updated
....))

I think that it is the :print-function which is
throwing it off.

Here is a list of some of the recient messages...

(OO-Browser): Invalid feature entry, `[structure],-
(proposition,(defstruct (proposition'
Loading Environment...Done
Building class features index...
Replaced 0 occurrences
Wrote /s/chopin/a/grad/dahlman/junk/new-nasa/apex
1.5/OOBR-FTR
Building Library Environment...Done
Building Library Environment...
Building System Environment...Done
Scanning voice.lisp in ~/junk/new-nasa/apex
1.5/system/ra/ ...
Scanning vision.lisp in ~/junk/new-nasa/apex
1.5/system/ra/ ...
Scanning resources.lisp in ~/junk/new-nasa/apex
1.5/system/ra/ ...
Scanning memory.lisp in ~/junk/new-nasa/apex
1.5/system/ra/ ...
Scanning human.lisp in ~/junk/new-nasa/apex
1.5/system/ra/ ...
Scanning hand.lisp in ~/junk/new-nasa/apex
1.5/system/ra/ ...
Scanning gaze.lisp in ~/junk/new-nasa/apex
1.5/system/ra/ ...
Scanning builtin-procs.lisp in ~/junk/new-nasa/apex
1.5/system/ra/ ...
Scanning ra in system/ ...
Building System Environment...
Build Environment in the background? (y or n) No
Build Environment in the background? (y or n)
Build Environment `apex' now? (y or n) Yes
Build Environment `apex' now? (y or n)
Loading /s/chopin/a/grad/dahlman/junk/new-nasa/apex
1.5/OOBR...done
Loading /s/chopin/a/grad/dahlman/junk/new-nasa/apex
1.5/OOBR...
Loading Environment...
Loading clos-brows...done
Loading clos-brows...

This is not my code so I cannot really go in and change
all of the print function specifications, is there some
other trick I could use to get this to work.

Thanks,
-Eric