;;; Sun Common Lisp, Development Environment 4.0.0 , 6 July 1990
;;; Sun-4 Version for SunOS 4.0.x and sunOS 4.1 
;;;
;;; Copyright (c) 1985, 1986, 1987, 1988, 1989, 1990
;;;            by Sun Microsystems, Inc.,  All Rights Reserved
;;; Copyright (c) 1985, 1986, 1987, 1988, 1989, 1990
;;;            by Lucid, Inc., All Rights Reserved
;;; This software product contains confidential and trade secret
;;; information belonging to Sun Microsystems, Inc.  It may not be copied
;;; for any reason other than for archival and backup purposes.
;;;
;;; Sun, Sun-4, and Sun Common Lisp are trademarks of Sun Microsystems Inc.

> (setf p '(A ?y <?y))
(A ?Y <?Y)
> 
(setf v1 (first (rest p)))
?Y

(setf v2 (nth 2 p))
<?Y



(symbol-name v1)
"?Y"



(char (symbol-name v1) 0)
#\?


(string-equal (char (symbol-name v1) 0) "?")
T
-> 
(char (symbol-name v2) 0)
#\<



(setf vbl (string v1))
"?Y"


> (setf vbl2 (string v2))
"<?Y"

(subseq vbl2 1)
"?Y"

> (string-equal vbl (subseq vbl2 1))
T



> (setf x1 (intern vbl))
?Y
> (setf x2 (intern (subseq vbl2 1)))
?Y
> (eql x1 x2)
T
>