From: Nakatani Tetsuya
Subject: [Q] Common Lisp indent
Date: Mon, 19 Sep 1994 16:37:30 +0000
Message-ID: <NAKATANI.94Sep20013730@halna.cs.gunma-u.ac.jp>

 Hi.
 
 Dose anyone have the function which takes `unindented` lisp code
and returns `indented` lisp code? Now suppose that this function
is indent, I expect this function as follows:

	> (indent '(defun my-reverse3 (L) (do ((REST-L L (rest REST-L))
       (RESULT nil (cons (first REST-L) RESULT))) ((null REST-L) RESULT))))

       (defun my-reverse3 (L)
         (do ((REST-L L (rest REST-L))
              (RESULT nil (cons (first REST-L) RESULT)))
             ((null REST-L) RESULT)))

       >
  
 Thanks in advance.
  
--
                    -----------------------------------------
                     ··@72GOBg3X(J ··@Bg3X1!(J ··@9)(···@3X8&5f2J(J ··@>pJs9)··@l96(J  
                     ··@@>C+8&5f<<=jB0(J 
                     ··@CfC+E0Li(J
                     ········@dbms.cs.gunma-u.ac.jp
                    -----------------------------------------

From: Nakatani Tetsuya
Subject: Re: [Q] Common Lisp indent
Date: Wed, 21 Sep 1994 07:26:37 +0000
Message-ID: <NAKATANI.94Sep21162637@halna.cs.gunma-u.ac.jp>

>> Nntp-Posting-Host: halna.dbms.cs.gunma-u.ac.jp

>>  Hi.
>>  
>>  Dose anyone have the function which takes `unindented` lisp code
>> and returns `indented` lisp code? Now suppose that this function
>> is indent, I expect this function as follows:

  I've some answers above question in mail. 
  I thanks those who reply my question.

--
                    -----------------------------------------
                     ··@72GOBg3X(J ··@Bg3X1!(J ··@9)3X8&5f2J(J ··@>pJs9)··@l96(J  
                     ··@@>C+8&5f<<=jB0(J 
                     ··@CfC+E0Li(J
                     ········@dbms.cs.gunma-u.ac.jp
                    -----------------------------------------