From ... From: Erik Naggum Subject: Re: getting a full symbol name Date: 2000/04/19 Message-ID: <3165125191606936@naggum.no>#1/1 X-Deja-AN: 613088531 References: <5174E9F018ADFCCC.F6B53EE0A06D6DC9.5CE6E22D206AE3C2@lp.airnews.net> mail-copies-to: never Content-Type: text/plain; charset=us-ascii X-Complaints-To: newsmaster@eunet.no X-Trace: oslo-nntp.eunet.no 956142992 27638 195.0.192.66 (19 Apr 2000 11:16:32 GMT) Organization: Naggum Software; vox: +47 8800 8879; fax: +47 8800 8601; http://www.naggum.no User-Agent: Gnus/5.0803 (Gnus v5.8.3) Emacs/20.5 Mime-Version: 1.0 NNTP-Posting-Date: 19 Apr 2000 11:16:32 GMT Newsgroups: comp.lang.lisp * "Marc Battyani" | 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/" ) #:Erik