Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!usc!sdd.hp.com!think.com!barmar
From: barmar@think.com (Barry Margolin)
Newsgroups: comp.lang.lisp
Subject: Re: How does one quote an atom in Sun CL
Message-ID: <1991May7.164142.23515@Think.COM>
Date: 7 May 91 16:41:42 GMT
References: <1991May6.205017.15237@cs.mcgill.ca>
Sender: news@Think.COM
Reply-To: barmar@think.com
Organization: Thinking Machines Corporation, Cambridge MA, USA
Lines: 21

In article <1991May6.205017.15237@cs.mcgill.ca> hum@cs.mcgill.ca (Herbert HUM) writes:
>e.g.:  (quote-atom (intern (concatenate 'string "hello-" "there")))
>       would produce the result 'hello-there
>
>The quote-atom function can be written on the Explorer by using the
>sys:inhibit-displacing-flag set to 't before a macro is called.
>
>Does anyone know how to code the quote-atom function in Sun CL?
>Any help would be greatly appreciated.  Thanks.

Since Sun CL doesn't do displacing macros (it's generally disallowed in
Common Lisp), I don't think anything special is needed to implement
quote-atom.

(defun quote-atom (atom)
  `(quote ,atom))
-- 
Barry Margolin, Thinking Machines Corp.

barmar@think.com
{uunet,harvard}!think!barmar