(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