From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: X-Spam-Checker-Version: SpamAssassin 3.4.0 (2014-02-07) on sa.local.altlinux.org X-Spam-Level: X-Spam-Status: No, score=-0.9 required=5.0 tests=BAYES_00, DNS_FROM_AHBL_RHSBL autolearn=no autolearn_force=no version=3.4.0 To: ALT Linux Team development discussions From: Aleksey Avdeev Message-ID: <56151DE2.7090501@solin.spb.ru> Date: Wed, 7 Oct 2015 16:28:02 +0300 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:38.0) Gecko/20100101 Thunderbird/38.0.1 MIME-Version: 1.0 Content-Type: multipart/signed; micalg=pgp-sha256; protocol="application/pgp-signature"; boundary="wL32frqMVSHtvmoHLJdrNhSkeqlnjBvVj" Subject: [devel] =?utf-8?b?STogd3d3LmFsdGxpbnV4Lm9yZzog0JrQvtC0INC90LAg?= =?utf-8?b?c2NoZW1lINC90LUg0L7RgtC+0LHRgNCw0LbQsNC10YLRgdGPLg==?= X-BeenThere: devel@lists.altlinux.org X-Mailman-Version: 2.1.12 Precedence: list Reply-To: ALT Linux Team development discussions List-Id: ALT Linux Team development discussions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Wed, 07 Oct 2015 13:28:05 -0000 Archived-At: List-Archive: List-Post: This is an OpenPGP/MIME signed message (RFC 4880 and 3156) --wL32frqMVSHtvmoHLJdrNhSkeqlnjBvVj Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable =D0=9F=D1=80=D0=B8=D0=B2=D0=B5=D1=82=D1=81=D1=82=D0=B2=D1=83=D1=8E. =D0=A7=D1=82=D0=BE-=D1=82=D0=BE =D1=83 =D0=BD=D0=B0=D1=81 =D0=BD=D0=B0 = www.altlinux.org =D0=BA=D0=BE=D0=B4 =D0=BD=D0=B0 scheme =D0=BD=D0=B5 =D0=BE= =D1=82=D0=BE=D0=B1=D1=80=D0=B0=D0=B6=D0=B0=D0=B5=D1=82=D1=81=D1=8F. =D0=9D=D0=B0=D0=BF=D1=80=D0=B8=D0=BC=D0=B5=D1=80 (=D1=81=D0=BC. ), =D0=BF=D1=80=D0=B8 =D0=B8=D1=81=D0=BF=D0=BE=D0=BB=D1=8C=D0=B7=D0=BE=D0=B2=D0=B0=D0=BD=D0=B8=D0= =B8 =D0=BA=D0=BE=D0=B4=D0=B0: (define (make-point-2d x y) (lambda (op . value) (case op ((get-x) x) ((get-y) y) ((set-x) (set! x (car value))) ((set-y) (set! y (car value)))))) (define point (make-point-2d 3 4)) (point 'get-x) =3D=3D> =D0=B2=D0=B5=D1=80=D0=BD=D1=91=D1=82 3 (point 'set-x 10) ; =D0=B7=D0=B0=D0=BF=D0=BE=D0=BC=D0=BD=D0=B8=D1=82 =D0=B2= =D1=81=D0=B2=D0=BE=D1=91=D0=BC =D0=BE=D0=BA=D1=80=D1=83=D0=B6=D0=B5=D0=BD= =D0=B8=D0=B8 =D0=BD=D0=BE=D0=B2=D0=BE=D0=B5 =D0=B7=D0=BD=D0=B0=D1=87=D0=B5= =D0=BD=D0=B8=D0=B5 x (point 'get-x) =3D=3D> =D0=B2=D0=B5=D1=80=D0=BD=D1=91=D1=82 10 =D0=B2 =D0=B1=D0=BB=D0=BE=D0=BA=D0=B5 =D0=BE=D1=82=D0=BE=D0=B1=D1=80=D0=B0= =D0=B6=D0=B0=D0=B5=D1=82=D1=81=D1=8F =D1=82=D0=BE=D0=BB=D1=8C=D0=BA=D0=BE= =D1=81=D1=82=D1=80=D0=BE=D0=BA=D0=B0: ; =D0=B7=D0=B0=D0=BF=D0=BE=D0=BC=D0=BD=D0=B8=D1=82 =D0=B2 =D1=81=D0=B2=D0= =BE=D1=91=D0=BC =D0=BE=D0=BA=D1=80=D1=83=D0=B6=D0=B5=D0=BD=D0=B8=D0=B8 =D0= =BD=D0=BE=D0=B2=D0=BE=D0=B5 =D0=B7=D0=BD=D0=B0=D1=87=D0=B5=D0=BD=D0=B8=D0= =B5 x PS: =D0=9E=D1=82=D0=BA=D1=80=D1=8B=D0=BB --=20 =D0=A1 =D1=83=D0=B2=D0=B0=D0=B6=D0=B5=D0=BD=D0=B8=D0=B5=D0=BC. =D0=90=D0=BB= =D0=B5=D0=BA=D1=81=D0=B5=D0=B9. --wL32frqMVSHtvmoHLJdrNhSkeqlnjBvVj Content-Type: application/pgp-signature; name="signature.asc" Content-Description: OpenPGP digital signature Content-Disposition: attachment; filename="signature.asc" -----BEGIN PGP SIGNATURE----- Version: GnuPG v1 Comment: Using GnuPG with Thunderbird - http://www.enigmail.net/ iF4EAREIAAYFAlYVHeIACgkQ3Mmr9sVvg3mEIgD9EmfXTwpqnW/FzIRDBllZbT8a 8rl7iqd67ibP8kaAPxkA/ju0+uPOU9bERnl+opYfU1o4WA7V83MdEpepqspxrAR3 =lsz3 -----END PGP SIGNATURE----- --wL32frqMVSHtvmoHLJdrNhSkeqlnjBvVj--