[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: :include and :print-function options in defstruct



Here is a patch for AKCL for that problem.

Thank you for the report.


*** /u7/public/akcl/lsp/defstruct.lsp	Fri Nov  1 18:35:48 1991
--- lsp/defstruct.lsp	Wed Nov  6 11:49:33 1991
***************
*** 631,636 ****
--- 631,640 ----
  		  (:named (setq named t))
  		  (t (error "~S is an illegal defstruct option." o))))))
  
+ 
+     (and include (not print-function)
+ 	 (setq print-function (s-data-print-function (get (car include)  's-data))))
+ 
      ;; Skip the documentation string.
      (when (and (not (endp slot-descriptions))
                 (stringp (car slot-descriptions)))