question about args to define-xxx-command

• To: clim@BBN.COM
• Subject: question about args to define-xxx-command
• From: Brent Reeves <brentr@sigi.cs.colorado.edu>
• Date: Tue, 5 May 1992 15:04:51 -0600

 Running Genera 8.1 and CLIM 1.0.  Compiler tells me:

 For CLIM Presentation Translator
 pt-design-unit-to-com-connect-translator
  CLIM Presentation Translator
  pt-design-unit-to-com-connect-translator is defined twice in the
  file NETWORK-DESIGN-CLIM:NETWORK-DESIGN-CLIM;PROGRAM-FRAMEWORK.

(define-network-design-command (com-connect :name "Connect" :menu nil)
    ((du1 'pt-design-unit :gesture :select)
     (du2 'pt-design-unit :gesture :select))
  (pushnew (key du1) (connections du2))
  (pushnew (key du2) (connections du1))
  (audit "~&~a is now connected to ~a" (key du1) (key du2)))
 
 I suppose the two ":gesture :selects" are causing it ("causing" that
 is in the macro expansion where the translators get defined).  How
 should this be defined instead?

 -brent

----------------------------------------------------------------------
Brent Neal Reeves       brentr@cs.colorado.edu          (303) 492-1218
		       "visualize whirled peas"

• question about args to define-xxx-command
• From: Scott McKay <SWM@stony-brook.scrc.symbolics.com>

• Prev: CLIM -> Postscript code file question
• Next: CLIM -> Postscript code file question
• Index: CLIM Mailing list (1-Jan-92 to 31-Aug-92)
• Thread: CLIM Mailing list Index (1-Jan-92 to 31-Aug-92)