Re: Built-in Functions and Special Forms

[googleartist@yahoo.com (Artist)]

Greg Hill <ghill@synergymicro.com> wrote in message news:<mailman.2511.1046318512.21513.help-gnu-emacs@gnu.org>...
> >At 2:38 AM +0100 2/27/03, Pascal Bourguignon wrote:
> >>I've not found any predicate to distinguish between built-in functions
> >>and special forms.
> >
> >In Emacs-21, the documentation is consistent enough that this seems 
> >to always work.
> >
> >(defun special-form-p (symbol)
> >     (string-match "\\.\\.\\.\\|&rest" (documentation symbol)))
> 
> Of course that should really be:
> 
> (defun special-form-p (symbol)
>      (and (subrp (symbol-function symbol))
>           (string-match "\\.\\.\\.\\|&rest" (documentation symbol))))
> 
> --Greg
> --
Code below works fine.
(defun my-special-forms ()
(let
    ((internals () ))
  (mapatoms (lambda (sym)
	      (when
		  (and 
		   (functionp sym)
		   (subrp (symbol-function sym))
		   (eq 'unevalled (cdr (subr-arity (symbol-function sym))))
		   )
		(push sym internals)
		)

	      )
	    )
  internals
;  (insert (format "%S\n" internals))
)
)