LISP symbols defined with DEFUN

LISP symbols defined with DEFUN

[A Soare]

How/Where LISP symbols defined with DEFUN are inserted in obarray?

Thanks.

Re: LISP symbols defined with DEFUN

[A Soare]

I saw using the preprocessor.

defsubr interns them using 
struct Lisp_Subr __attribute__ ((__aligned__ (1 << GCTYPEBITS)))

etcetera.

> How/Where LISP symbols defined with DEFUN are inserted in obarray?
> 
> Thanks.

Re: LISP symbols defined with DEFUN

[Pascal Bourguignon]

A Soare <alinsoar@voila.fr> writes:

> How/Where LISP symbols defined with DEFUN are inserted in obarray?

Symbols are not inserted in the obarray by defun.  In lisp, symbols
are put in the symbol table when they are read, not when they are
"defined" by the compiler.  When the compiler gets the symbols they
have been inside the symbol table since a long time.

The lisp reader puts the symbol it reads in the obarray (the symbol
table), using the function intern.

It looks like this (pseudo-code):

(defun read (&optional stream)
  (let ((token (read-a-token stream))) ; token is basically a sequence of characters.
     (cond
       ((looks-like-an-integer token)
          (parse-integer token))
       ((looks-like-a-string-literal token)
          (parse-string token))
       ((string= "(" token)
          (loop for token = (peek-a-token stream)
                until (string= ")" token) 
                ;; more stuff to handle dotted lists.
                collect (read stream)))
      ((looks-like-a-symbol token)
          (intern token))
      (t
          (error "This token looks like nothing: %S" token)))))

-- 
__Pascal Bourguignon__
http://www.informatimago.com
http://pjb.ogamita.org