> (defun instance->initargs (inst) > "Reverse-engineer initargs from INST." > (let (args) > (dolist (slot (class-slots (class-of inst))) > (let ((slotn (slot-definition-name slot))) > (awhen (and (slot-boundp inst slotn) > (slot-definition-initargs slot)) > (setf args (list* (slot-value inst slotn) > (first it) > args))))) > (nreverse args))) >
But I need real initargs not slot values. Field can customize it's value for its own needs but initargs are mostly common for all types of fields. For example fields of edit and search views can accept the same parser value as initarg but second wraps it in another parser which knows about corresponding query parameters. --~--~---------~--~----~------------~-------~--~----~ You received this message because you are subscribed to the Google Groups "weblocks" group. To post to this group, send email to [email protected] To unsubscribe from this group, send email to [email protected] For more options, visit this group at http://groups.google.com/group/weblocks?hl=en -~----------~----~----~----~------~----~------~--~---
