Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!usc!wuarchive!sdd.hp.com!elroy.jpl.nasa.gov!jpl-devvax!usenet
From: charest@ai-cyclops.jpl.nasa.gov
Newsgroups: comp.lang.lisp
Subject: Re: How does one quote an atom in Sun CL
Message-ID: <1991May7.181305.1973@jpl-devvax.jpl.nasa.gov>
Date: 7 May 91 18:13:05 GMT
References: <1991May6.205017.15237@cs.mcgill.ca>
Sender: usenet@jpl-devvax.jpl.nasa.gov (For NNTP so rrn will be able to post)
Organization: NASA/Jet Propulsion Lab
Lines: 15
Nntp-Posting-Host: germanium

In article <1991May6.205017.15237@cs.mcgill.ca> hum@cs.mcgill.ca (Herbert HUM)
writes:

>Does anyone know how to code the quote-atom function in Sun CL?
>Any help would be greatly appreciated.  Thanks.
>

The following works as a general purpose quoting function for any LISP datum:

(defun kwote (thing)
  (if (constantp thing)
    thing
    `(quote ,thing)))

-Len Charest