Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!sdd.hp.com!spool.mu.edu!uunet!stanford.edu!snorkelwacker.mit.edu!thunder.mcrcim.mcgill.edu!quiche!hum
From: hum@cs.mcgill.ca (Herbert HUM)
Newsgroups: comp.lang.lisp
Subject: How does one quote an atom in Sun CL
Message-ID: <1991May6.205017.15237@cs.mcgill.ca>
Date: 6 May 91 20:50:17 GMT
Article-I.D.: cs.1991May6.205017.15237
Sender: news@cs.mcgill.ca (Netnews Administrator)
Organization: SOCS, McGill University, Montreal, Canada
Lines: 19
Originator: hum@homer





I am trying to port a program from a TI Explorer to a Sun running Sun
CL.  In the program, I have a function which given an interned symbol
will generate the quoted version of the symbol.

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.

Herbert 
hum@cs.mcgill.ca