[ clisp-Bugs-836838 ] uninterned symbols not shared between forms in FAS file

Bugs item #836838, was opened at 2003-11-05 16:12
Message generated for change (Tracker Item Submitted) made by Item Submitter
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=836838&group_id=1355

Category: clisp
Group: lisp error
Status: Open
Resolution: None
Priority: 5
Submitted By: John Tang Boyland (boyland)
Assigned to: Sam Steingold (sds)
Summary: uninterned symbols not shared between forms in FAS file

Initial Comment:
If a macro in a file generates a function
(or presumably some other top-level form)
with an uninterned symbol and this is used
in another form generated by the same macro,
the sharing is lost leading to an "undefined
function" exception:

This is on Clisp 2.31 (with my format extension).

To duplicate compile and load this file.
------------------------------------------
(in-package :user)

(defmacro make-func-var (name)
  (let ((g (copy-symbol name)))
  `(progn
     (defun ,g () 42)
     (defvar ,name #',g))))

(make-func-var v1)
------------------------------------------

GNU CLISP 2.31 (jtb 1) (released 2003-09-01) (built
3276804610) (memory 3277054578)
Features: 
(CLOS LOOP COMPILER CLISP ANSI-CL COMMON-LISP LISP=CL
INTERPRETER SOCKETS
 GENERIC-STREAMS LOGICAL-PATHNAMES SCREEN FFI UNICODE
BASE-CHAR=CHARACTER UNIX)
Installation directory:
/afs/cs.uwm.edu/package/clisp/clisp-2.31jbb1/sun4x_58/lib/clisp/
User language: ENGLISH

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=836838&group_id=1355

-------------------------------------------------------
This SF.net email is sponsored by: SF.net Giveback Program.
Does SourceForge.net help you be more productive?  Does it
help you create better code?   SHARE THE LOVE, and help us help
YOU!  Click Here: http://sourceforge.net/donate/