Re: getting a full symbol name - Naggum cll archive

Subject: Re: getting a full symbol name
From: Erik Naggum <erik@naggum.no>
Date: 2000/04/19
Newsgroups: comp.lang.lisp
Message-ID: <3165125191606936@naggum.no>

* "Marc Battyani" <Marc_Battyani@csi.com>
| what is the easiest way to get a full symbol name ie "package::name"?

(let ((*package* (find-package :keyword))
  (write-to-string object :readably t)))

| is there a format directive for this?

(defun fqsn (stream object colon-p atsign-p &rest format-args)
  (declare (ignore colon-p atsign-p format-args))
  (let ((*package* (find-package :keyword))
    (write object :stream stream :readably t))))

  now there is.  fqsn stands for fully qualified symbol name.

(format nil "~/fqsn/" <symbol>)

#:Erik