1
        for <[email protected]>; Mon, 11 Feb 2008 04:27:48 -0700
Received: from [132.175.109.14] by sentry.sandia.gov with ESMTP (SMTP
 Relay 01 (Email Firewall v6.3.1)); Mon, 11 Feb 2008 04:27:38 -0700
X-Server-Uuid: AA8306FD-23D1-4E5B-B133-B2D9F10C3631
X-WSS-ID: 0JW2NU3-07-3FL-01
X-TMWD-Spam-Summary: TS=3D20080211112739; ID=3D1; SEV=3D2.3.2;
 DFV=3DB2008021107; IFV=3D2.0.4,4.0-9; AIF=3DB2008021107; RPD=3D5.03.0010;
 ENG=3DNA;
 RPDID=3D7374723D303030312E30413031303230362E34374230333132412E303041422C73=
733D312C6667733D30;
 CAT=3DNONE; CON=3DNONE; SIG=3DAAAAAAAAAAAAAAAAwYgcHgAABA=3D=3D
X-TMWD-IP-Reputation: SIP=3D193.136.28.30;
 IPRID=3D303030312E30413039303330312E34374230333132382E30303630; CTCLS=3DT1=
;
 CAT=3DUnknown
Received: from smtp1.fe.up.pt (smtp.fe.up.pt [193.136.28.30]) by
 sentry-two.sandia.gov (Tumbleweed MailGate 3.5.1) with ESMTP id
 280E68EAABA for <[email protected]>; Mon, 11 Feb 2008 04:27:38
 -0700 (MST)
Received: from localhost (localhost [127.0.0.1]) by smtp1.fe.up.pt (
 Postfix) with ESMTP id DF590EF98A for <[email protected]>; Mon, 11
 Feb 2008 11:26:55 +0000 (WET)
Received: from smtp1.fe.up.pt ([127.0.0.1]) by localhost (smtp1.fe.up.pt
 [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id 3dwzksKdYwbH for
 <[email protected]>; Mon, 11 Feb 2008 11:26:55 +0000 (WET)
Received: from [127.0.0.1] (unknown [192.168.56.20]) by smtp1.fe.up.pt (
 Postfix) with ESMTP id C7B48EF989 for <[email protected]>; Mon, 11
 Feb 2008 11:26:55 +0000 (WET)
Message-ID: <[EMAIL PROTECTED]>
Date: Mon, 11 Feb 2008 11:27:29 +0000
From: "Henrique Lopes Cardoso" <[EMAIL PROTECTED]>
User-Agent: Thunderbird 2.0.0.9 (Windows/20071031)
MIME-Version: 1.0
To: [email protected]
Subject: Setting defaults
X-WSS-ID: 6BAEEEA047S602199-01-01
Content-Type: text/plain;
 charset=3Diso-8859-1;
 format=3Dflowed
Content-Transfer-Encoding: 7bit
X-PMX-Version: 5.4.0.320885, Antispam-Engine: 2.5.2.313940, Antispam-Data: =
2008.2.11.31534
X-PerlMx-Spam: Gauge=3DIIIIIII, Probability=3D7%, Report=3D'BODY_SIZE_300_3=
99 0, __CT 0, __CTE 0, __CT_TEXT_PLAIN 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0=
, __MIME_VERSION 0, __SANE_MSGID 0, __USER_AGENT 0'

Hi,

I was wondering if there is a way of setting a default value for a slot
to be equal to another slot.
Something like:

(deftemplate foo
    (slot bar)
    (slot qwe (default-dynamic this.bar))))

(assert (foo (bar 1)))

Slot qwe would get the value of slot bar, that is, 1.

Thanks.

Henrique

--------------------------------------------------------------------
To unsubscribe, send the words 'unsubscribe jess-users [EMAIL PROTECTED]'
in the BODY of a message to [EMAIL PROTECTED], NOT to the list
(use your own address!) List problems? Notify [EMAIL PROTECTED]
--------------------------------------------------------------------

Reply via email to