From: Keisuke Nishida <kxn30@po.cwru.edu>
To: guile-emacs@sourceware.cygnus.com
Subject: Re: import-lisp-macro
Date: Sat, 18 Mar 2000 10:47:00 -0000 [thread overview]
Message-ID: <m3aejwf73b.fsf@kei.cwru.edu> (raw)
In-Reply-To: <m3ln3gf8x0.fsf@kei.cwru.edu>
Keisuke Nishida <kxn30@po.cwru.edu> writes:
> Yes, we can do that by defining this:
>
> (import-lisp-function buffer-substring buffer-substring-lispref)
>
> (define (buffer-substring . args)
> ((apply buffer-substring-lispref args)))
Of course, we could add a new macro that does this automatically:
(define-macro (import-lisp-function-by-value func . rest)
(if (null? (lispref->scm (lisp-apply 'functionp (list func))))
(lisp-apply 'error (list "No such function: %s" func)))
(let ((name (if (pair? rest) (car rest) func)))
`(define (,name . args)
(lispref->scm (lisp-apply ',func args)))))
(export import-lisp-function-by-value)
(import-lisp-function-by-value buffer-substring)
This works in the previous manner. I guess all functions that
return a number, symbol, or string may be imported by using this.
next prev parent reply other threads:[~2000-03-18 10:47 UTC|newest]
Thread overview: 8+ messages / expand[flat|nested] mbox.gz Atom feed top
2000-03-17 9:40 import-lisp-macro Keisuke Nishida
2000-03-18 3:59 ` import-lisp-macro Kalle Olavi Niemitalo
2000-03-18 10:08 ` import-lisp-macro Keisuke Nishida
2000-03-18 10:47 ` Keisuke Nishida [this message]
2000-03-18 11:00 ` import-lisp-macro Keisuke Nishida
2000-03-20 7:50 ` import-lisp-macro Kalle Olavi Niemitalo
2000-03-20 16:04 ` import-lisp-macro Keisuke Nishida
2000-03-21 11:05 ` import-lisp-macro Kalle Olavi Niemitalo
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m3aejwf73b.fsf@kei.cwru.edu \
--to=kxn30@po.cwru.edu \
--cc=guile-emacs@sourceware.cygnus.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).