Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv4610
Modified Files: parse.lisp Log Message: Just indentation.
Date: Wed Nov 24 11:02:59 2004 Author: ffjeld
Index: movitz/parse.lisp diff -u movitz/parse.lisp:1.3 movitz/parse.lisp:1.4 --- movitz/parse.lisp:1.3 Mon Jan 19 12:23:41 2004 +++ movitz/parse.lisp Wed Nov 24 11:02:59 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Nov 24 16:49:17 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: parse.lisp,v 1.3 2004/01/19 11:23:41 ffjeld Exp $ +;;;; $Id: parse.lisp,v 1.4 2004/11/24 10:02:59 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -122,24 +122,24 @@ ((and (symbolp (car program)) (eq (symbol-package (car program)) from-package)) (cons (translate-symbol (car program)) - (muerte::translate-program (rest program) from-package to-package - :when when - :remove-double-quotes-p remove-double-quotes-p - :quote-symbol quote-symbol))) + (muerte::translate-program (cdr program) from-package to-package + :when when + :remove-double-quotes-p remove-double-quotes-p + :quote-symbol quote-symbol))) ((consp (car program)) (cons (muerte::translate-program (car program) from-package to-package - :when when - :remove-double-quotes-p remove-double-quotes-p - :quote-symbol quote-symbol) + :when when + :remove-double-quotes-p remove-double-quotes-p + :quote-symbol quote-symbol) (muerte::translate-program (cdr program) from-package to-package - :when when - :remove-double-quotes-p remove-double-quotes-p - :quote-symbol quote-symbol))) + :when when + :remove-double-quotes-p remove-double-quotes-p + :quote-symbol quote-symbol))) (t (cons (car program) (muerte::translate-program (cdr program) from-package to-package - :when when - :remove-double-quotes-p remove-double-quotes-p - :quote-symbol quote-symbol))))))) + :when when + :remove-double-quotes-p remove-double-quotes-p + :quote-symbol quote-symbol)))))))
(defun decode-normal-lambda-list (lambda-list &optional host-symbols-p) "3.4.1 Ordinary Lambda Lists.