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

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

To: kcl@cli.com
Subject: Re: :include and :print-function options in defstruct
From: wfs@nicolas.ma.utexas.edu (Bill Schelter)
Date: Wed, 6 Nov 91 11:57:32 -0600
Cc: laubsch@hpljl.hpl.hp.com
In-reply-to: Joachim Laubsch's message of Tue, 5 Nov 91 15:30:29 pst <9111052330.AA00675@hpljl.hpl.hp.com>
Posted-date: Wed, 6 Nov 91 11:57:32 -0600
Reply-to: wfs@nicolas.ma.utexas.edu

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)))

References:
- :include and :print-function options in defstruct
  - From: Joachim Laubsch <laubsch@hpljl.hpl.hp.com>

Prev by Date: :include and :print-function options in defstruct
Next by Date: Re: kcl "some" question
Previous by thread: :include and :print-function options in defstruct
Next by thread: dbl.el
Index(es):
- Date
- Thread