From: YUE Daian <sheepduke@gmail.com>
To: Stefan Monnier <monnier@iro.umontreal.ca>
Cc: Spenser <myself@spensertruex.com>,
Spenser Truex <lists@spensertruex.com>,
Drew Adams <drew.adams@oracle.com>,
emacs-devel <emacs-devel@gnu.org>
Subject: Re: Request: add cl-font-lock to Emacs or Elpa
Date: Sat, 21 Mar 2020 14:59:28 +0800 [thread overview]
Message-ID: <87lfnub3cf.fsf@home.i-did-not-set--mail-host-address--so-tickle-me> (raw)
In-Reply-To: <jwvzhccjmjl.fsf-monnier+emacs@gnu.org>
>>>> I also wonder how you made those lists? Have you extracted them from
>>>> the CLHS? If so, it would be good to include (e.g. as comments) the
>>>> code&steps that was used.
>>>> [ I'm also curious why things like make-method and next-method-p are in
>>>> built-in--symbols rather than in built-in--functions. ]
>> They are not extracted from CLHS. They are extracted from a SBCL image.
>
> Works as well ;-)
> Do you still have the code you used to extract it, so we can keep it
> around (e.g. to update the list at some point, or just as documentation)?
>
I lost the original source, so I wrote a new one ;-)
I have added it to the README file, here is the snippet:
#+BEGIN_SRC common-lisp
(defvar *functions* nil)
(defvar *symbols* nil)
(defvar *types* nil)
(let ((pack (find-package :common-lisp)))
(do-all-symbols (sym)
(cond
((not (eql pack (symbol-package sym))) nil)
((fboundp sym) (pushnew sym *functions*))
((find-class sym nil) (pushnew sym *types*))
(t (pushnew sym *symbols*)))))
#+END_SRC
Some manual work was done to tune the result.
>> As for the 2 functions...it is because they are "local function/macro",
>> which was not recognized as "function".
>
> Doesn't this apply to `call-next-method` as well, then?
>
Added. Thanks.
next prev parent reply other threads:[~2020-03-21 6:59 UTC|newest]
Thread overview: 18+ messages / expand[flat|nested] mbox.gz Atom feed top
2020-03-15 6:58 Request: add cl-font-lock to Emacs or Elpa Spenser Truex
2020-03-15 14:31 ` Eli Zaretskii
2020-03-15 16:12 ` Stefan Monnier
[not found] ` <jwvpnddmx7i.fsf-monnier+emacs@gnu.org>
2020-03-15 20:28 ` Spenser Truex
2020-03-15 20:57 ` Drew Adams
2020-03-17 17:32 ` Spenser
2020-03-17 17:43 ` Drew Adams
2020-03-17 18:13 ` Stefan Monnier
2020-03-17 18:25 ` Drew Adams
2020-03-17 18:42 ` Stefan Monnier
2020-03-19 13:56 ` YUE Daian
2020-03-19 14:19 ` Stefan Monnier
2020-03-19 14:41 ` YUE Daian
2020-03-19 17:15 ` Stefan Monnier
2020-03-21 6:59 ` YUE Daian [this message]
[not found] ` <87y2rtech3.fsf@spensertruex.com>
[not found] ` <jwvtv2hfm7a.fsf-monnier+emacs@gnu.org>
2020-03-21 22:40 ` Spenser Truex
2020-03-22 17:54 ` Stefan Monnier
[not found] <1F8693F6-6DD1-4D5A-A1B1-C38BCAD4977F@spensertruex.com>
2020-03-17 18:02 ` Spenser
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
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87lfnub3cf.fsf@home.i-did-not-set--mail-host-address--so-tickle-me \
--to=sheepduke@gmail.com \
--cc=drew.adams@oracle.com \
--cc=emacs-devel@gnu.org \
--cc=lists@spensertruex.com \
--cc=monnier@iro.umontreal.ca \
--cc=myself@spensertruex.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.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
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).