๐Ÿš€ go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.editor.emacs
Article #404

Re: [Q] various questions

#404
From: KURODA Hisao
Date: Wed, 24 Feb 1999 00:00
96 lines
3154 bytes
Hideki Sakurada (ๆซป็”ฐ่‹ฑๆจน) <sakurada@kuis.kyoto-u.ac.jp> writes:

> ๅŠ ่—คใ•ใ‚“
> >ใ€Œ่ฉ•ไพกใ€ใ˜ใ‚ƒใƒ€ใƒกใงใ™๏ผŽใ‚‚ใ†ไธ€ๅ›ž่ชญใฟ่พผใพใ›ใฆไฝœใ‚Š็›ดใ•ใ›ใชใ„ใจ๏ผŽ
> 
> ใใ‚ใ ใ•ใ‚“:
> > ใจใ‚ใ‚Šใ€(defun foo ...)ใ‚’ใ‚‚ใ†ไธ€ๅบฆ่ฉ•ไพกใ™ใ‚‹ใ€ใจใฏใ€
> > 
> > (defun foo ()
> >  (let ((foobar '(a)))
> >    foobar))
> > 
> > ใ‚’่ฉ•ไพกใ™ใ‚‹ใ“ใจใฎๆ„ๅ‘ณใงๆ›ธใใพใ—ใŸใ€‚
> > ใ“ใฎไป–ใซ่งฃ้‡ˆใŒใ‚ใ‚‹ใ‚ˆใ†ใซใฏๆ€ใˆใชใ„ใฎใงใ™ใŒโ€ฆ
> 
> ใใ‚ใ ใ•ใ‚“ใฎใ€Œ่ฉ•ไพกใ€ใฏ read & eval ใ‚’ๅซใ‚€ใ‘ใฉ,
> ๅŠ ่—คใ•ใ‚“ใฎใ€Œ่ฉ•ไพกใ€ใฏ eval ใฎใฟใ‚’ๆŒ‡ใ—ใฆใ„ใพใ™ใญ.

ใ“ใ“ใŒ่‰ฏใใ‚ใ‹ใ‚‰ใชใ„ใงใ™ใŒใ€

ๅฐ‘ใชใใจใ‚‚ใ‚ใŸใ—ใฏใ€Œ่ฉ•ไพกใ€ใ‚’evalใ‚’ๆŒ‡ใ—ใฆไฝฟใฃใŸใคใ‚‚ใ‚Šใงใ„ใพใ™ใ€‚
read&evalใ‚’ๆŒ‡ใ—ใŸใคใ‚‚ใ‚Šใฏใ‚ใ‚Šใพใ›ใ‚“ใ€‚

ใŸใ—ใ‹ใซใ‚ใŸใ—ใฎๆŒ™ใ’ใŸไพ‹ใฏreadใ‚’ไฝฟใฃใฆใพใ™ใŒใ€ใใ‚Œใฏไพ‹ใ‚’ๆŒ™ใ’ใ‚‹
ใฎใซไพฟๅˆฉใงใ‚ใฃใŸใ ใ‘ใงใ€readใ‚’ไฝฟใ‚ใšใซๅŒใ˜ไพ‹ใฏ็คบใ›ใพใ™ใ€‚
ใŸใจใˆใฐไปฅไธ‹ใฏใฉใ†ใงใ—ใ‚‡ใ†?

Starting gcl ...
GCL (GNU Common Lisp)  Version(2.2.2) Wed Jul  1 00:18:48 PDT 1998
Licensed under GNU Public Library License
Contains Enhancements by W. Schelter

>(defun test ()
  (defun foo ()
    (let ((foobar '(a)))
      foobar))

  (print (foo))

  (rplacd (foo) 'b)

  (print (foo))

  (defun foo ()
    (let ((foobar '(a)))
      foobar))

  (print (foo))

  t
  )

TEST

>(compile 'test)
Compiling gazonk0.lsp.
End of Pass 1.  
End of Pass 2.  
OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3
Finished compiling gazonk0.lsp.
Loading gazonk0.o
start address -T 235000 Finished loading gazonk0.o
#<compiled-function TEST>

>(test)
(A) 
(A . B) 
(A) 
T


ใ‚‚ใ†ไธ€ๅบฆๆˆปใ‚Šใพใ™ใŒใ€

Hideki Kato <katoh@pop12.odn.ne.jp> writes:

> > ใ‚‚ใกใ‚ใ‚“ใ€(defun foo ...) ใ‚’ใ‚‚ใ†ไธ€ๅบฆ่ฉ•ไพกใ—ใฆใ‚„ใ‚Œใฐ(foo)ใฎ่ฟ”ใ™ๅ€คใฏๅ…ƒใซๆˆป
> > ใ‚Šใพใ™ใ€‚ไธŠใซ็ถšใ‘ใฆใ€
> 
> ใ€Œ่ฉ•ไพกใ€ใ˜ใ‚ƒใƒ€ใƒกใงใ™๏ผŽใ‚‚ใ†ไธ€ๅ›ž่ชญใฟ่พผใพใ›ใฆไฝœใ‚Š็›ดใ•ใ›ใชใ„ใจ๏ผŽ

ใ€Œ่ฉ•ไพกใ€ใ˜ใ‚ƒใƒ€ใƒกใงใฏใชใใฆใ€ใ€Œ่ฉ•ไพกใ€ใงๅๅˆ†ใ ใจใ„ใ†ใฎใŒใ‚ใŸใ—ใฎ่ช่ญ˜ใงใ™ใ€‚

Hideki Sakurada (ๆซป็”ฐ่‹ฑๆจน) <sakurada@kuis.kyoto-u.ac.jp> writes:

> > ็‰‡ๅฑฑใ•ใ‚“ใฎไพ‹ใงใ™ใจใ€(defun foo ...)ใ‚’่ฉ•ไพกใ—ใฆใ„ใ‚‹ใฎใงใฏใชใใ€
> > ใ‚ใใพใงaใ‚’่ฉ•ไพกใ—ใฆใ„ใ‚‹ใ“ใจใซใชใ‚‹ใจๆ€ใ„ใพใ™ใ€‚
> 
>  ใ€Œaใ‚’ใ€โ†’ใ€Œaใฎๅ€คใ‚’ใ€
> 
> ใงใ™ใ‚ˆใญ.

ใ“ใ‚ŒใฏใŠใฃใ—ใ‚ƒใ‚‹้€šใ‚Šใงใ™ใ€‚่จ‚ๆญฃใ‚ใ‚ŠใŒใจใ†ใ”ใ–ใ„ใพใ—ใŸใ€‚

;;; $Id: .signature,v 1.3 1996/09/20 07:06:26 kuroda Exp $
(define (ใใ‚ใ  ใฒใ•ใŠ)
  (email kuroda@msi.co.jp))
Technical Details
Message-ID: <71emngmih3.fsf@herbrand.msi.co.jp>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <71u2wflzmb.fsf@herbrand.msi.co.jp> <19990222194036Y.sakurada@kuis.kyoto-u.ac.jp>

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: ff358,4952fe316c949c01
X-Google-Attributes: gidff358,public
X-Google-Thread: fe524,b1de047fcafc1e56
X-Google-Attributes: gidfe524,public
From: KURODA Hisao <kuroda@msi.co.jp>
Subject: Re: [Q] various questions
Date: 1999/02/24
Message-ID: <71emngmih3.fsf@herbrand.msi.co.jp>
X-Deja-AN: 447784439
Sender: kuroda@herbrand.msi.co.jp
References: <71u2wflzmb.fsf@herbrand.msi.co.jp> <19990222194036Y.sakurada@kuis.kyoto-u.ac.jp>
Content-Type: text/plain; charset=ISO-2022-JP
Organization: Mathematical Systems Inc., Japan
Mime-Version: 1.0 (generated by tm-edit 7.108)
Newsgroups: fj.editor.emacs,fj.comp.lang.lisp