(DEFINE-FILE-INFO PACKAGE "XCL-USER" READTABLE "XCL")
(il:filecreated "19-Oct-87 19:12:18" il:{phylum}<cameron>lisp>superparentheses.\;8 3991   

      il:|changes| il:|to:|  (il:vars il:superparenthesescoms)

      il:|previous| il:|date:| "27-Aug-87 17:45:28" il:{phylum}<cameron>lisp>superparentheses.\;7)


; Copyright (c) 1987 by Andrew J Cameron, III and Xerox Corporation.  All rights reserved.

(il:prettycomprint il:superparenthesescoms)

(il:rpaqq il:superparenthesescoms (

(il:* il:|;;;| " This file provides CommonLisp with SUPERPARENTHESES")

                                   
          
          (il:* il:|;;| " This is done by simply copying the SyntaxClass of [ (LEFTBRACKET) and ] (RIGHTBRACKET) from the original InterLisp readtable to a copy of the CommonLisp readtable which becomes named LISP[].")

                                   
          
          (il:* il:|;;| "This new readtable can be accessed via: (IL:FIND-READTABLE \"LISP[]\")")

                                   
          
          (il:* il:|;;| 
  "The original CommonLisp readtable can be re-obtained via: (setq *readtable* (copy-readtable nil))")

                                   
          
          (il:* il:|;;| "Thanks to Bill VanMelle for suggestions and simplifications.")

                                   (il:prop il:makefile-environment il:superparentheses)
                                   (il:p (let ((rdtbl (copy-readtable nil)))
                                              
          
          (il:* il:|;;| "Copy the original readtable")

                                              
          
          (il:* il:|;;| "Transfer the charMacro definition of [ and ]")

                                              (set-syntax-from-char #\[ #\[ rdtbl 'il:orig)
                                              (set-syntax-from-char #\] #\] rdtbl 'il:orig)
                                              
          
          (il:* il:|;;| "give the readtable a printname")

                                              (il:readtableprop rdtbl 'il:name "LISP[]")
                                              
          
          (il:* il:|;;| "Would actually like it to become the readtable of the primary EXEC window, but this may not be what the used expects.")

                                              
          
          (il:* il:|;;| "(setq *readtable* (IL:FIND-READTABLE \"LISP[]\"))")
))))



(il:* il:|;;;| " This file provides CommonLisp with SUPERPARENTHESES")




(il:* il:|;;| 
" This is done by simply copying the SyntaxClass of [ (LEFTBRACKET) and ] (RIGHTBRACKET) from the original InterLisp readtable to a copy of the CommonLisp readtable which becomes named LISP[]."
)




(il:* il:|;;| "This new readtable can be accessed via: (IL:FIND-READTABLE \"LISP[]\")")




(il:* il:|;;| 
"The original CommonLisp readtable can be re-obtained via: (setq *readtable* (copy-readtable nil))")




(il:* il:|;;| "Thanks to Bill VanMelle for suggestions and simplifications.")


(il:putprops il:superparentheses il:makefile-environment (:package "XCL-USER" :readtable "XCL"))
(let ((rdtbl (copy-readtable nil)))
          
          (il:* il:|;;| "Copy the original readtable")

          
          (il:* il:|;;| "Transfer the charMacro definition of [ and ]")

     (set-syntax-from-char #\[ #\[ rdtbl 'il:orig)
     (set-syntax-from-char #\] #\] rdtbl 'il:orig)
          
          (il:* il:|;;| "give the readtable a printname")

     (il:readtableprop rdtbl 'il:name "LISP[]")
          
          (il:* il:|;;| "Would actually like it to become the readtable of the primary EXEC window, but this may not be what the used expects.")

          
          (il:* il:|;;| "(setq *readtable* (IL:FIND-READTABLE \"LISP[]\"))")
)
(il:putprops il:superparentheses il:copyright ("Andrew J Cameron, III and Xerox Corporation" 1987))
(il:declare\: il:dontcopy
  (il:filemap (nil)))
il:stop