Path: g2news2.google.com!news2.google.com!news.glorb.com!feeder.erje.net!news-2.dfn.de!news.dfn.de!news.uni-stuttgart.de!news.belwue.de!rz.uni-karlsruhe.de!inka.de!raven.inka.de!not-for-mail
From: Josef Wolf <j...@raven.inka.de>
Newsgroups: comp.lang.lisp
Subject: Problem with packages and READ
Date: Thu, 21 Oct 2010 14:58:47 +0000 (UTC)
Organization: PPCGer
Lines: 33
Message-ID: <slrnic0l97.pq5.jw@raven.wolf.lan>
NNTP-Posting-Host: localhost.localdomain
X-Trace: raven.wolf.lan 1287673127 32502 127.0.0.1 (21 Oct 2010 14:58:47 GMT)
X-Complaints-To: news@raven.inka.de
NNTP-Posting-Date: Thu, 21 Oct 2010 14:58:47 +0000 (UTC)
User-Agent: slrn/0.9.8.1pl1 (Linux)

Hello,

I am somewhat struggling with the package system. Here is  an excerpt:

  CL-USER> (in-package :cl-user)
  #<PACKAGE "COMMON-LISP-USER">
  CL-USER> (defpackage :foo (:use :cl) (:export :huhu))
  #<PACKAGE "FOO">
  CL-USER> (in-package :foo)
  #<PACKAGE "FOO">
  FOO> (defparameter *bar* 'bar)
  *BAR*
  FOO> (defun huhu ()
    (list *bar* 'bar (read-from-string "bar")))
  HUHU
  FOO> (huhu)
  (BAR BAR BAR)
  FOO> (in-package :cl-user)
  #<PACKAGE "COMMON-LISP-USER">
  CL-USER> (foo:huhu)
  (FOO::BAR FOO::BAR BAR)
  CL-USER> (defpackage :baz)
  #<PACKAGE "BAZ">
  CL-USER> (in-package :baz)
  #<COMMON-LISP:PACKAGE "BAZ">
  BAZ> (foo:huhu)
  (FOO::BAR FOO::BAR BAR)
  BAZ> 

So READ seems to put symbols into the "toplevel" package, while DEFPARAMETER
seems to honor the IN-PACKAGE setting.

Is there any way to tell READ to put the symbols into the FOO package?