unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
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.



  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).