From: Andrew Philip Leslie
Subject: HOW: Read character from a term
Date: Mon, 24 Apr 1995 00:00:00 +0000
Message-ID: <3neu2f$oau@wumpus.cc.uow.edu.au>

I want to be able to do the following :

Have a function which when executed looks like the following ...

> (example-function '(?Z A B))
(Z)
> 

I want the function to print out the terms starting with the question mark
"?".

How can this be done?

  Philip Andrew

From: Barry Margolin
Subject: Re: HOW: Read character from a term
Date: Fri, 28 Apr 1995 00:00:00 +0000
Message-ID: <3nrsho$su@tools.near.net>

In article <··········@wumpus.cc.uow.edu.au> ·····@wumpus.cc.uow.edu.au (Andrew Philip Leslie) writes:
>> (example-function '(?Z A B))
>(Z)
>
>I want the function to print out the terms starting with the question mark
>"?".

(defun example-function (symbols)
  (loop for s in symbols
        for name = (symbol-name s)
        when (char= #\? (char name 0))
          collect (intern (subseq name 1))))
-- 
Barry Margolin
BBN Planet Corporation, Cambridge, MA
······@bbnplanet.com