(FILECREATED "31-Jul-85 04:48:28" {ERIS}<LISPCORE>LIBRARY>CMLSTRING.;1
 455    

      changes to:  (VARS CMLSTRINGCOMS) (FNS SCHAR))


(* Copyright (c) 1985 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT CMLSTRINGCOMS)

(RPAQQ CMLSTRINGCOMS
 ((FNS SCHAR)))
(DEFINEQ

(SCHAR

(CL:LAMBDA (STRING INDEX) (INT-CHAR (NTHCHARCODE STRING (ADD1 INDEX)))))
)
(PUTPROPS CMLSTRING COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (280 375 (SCHAR 290 . 373)))))
STOP