Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv15293
Modified Files: los-closette-compiler.lisp Log Message: More smallish rearrangement of compiler code, and some comments.
Date: Wed Feb 4 10:25:33 2004 Author: ffjeld
Index: movitz/losp/muerte/los-closette-compiler.lisp diff -u movitz/losp/muerte/los-closette-compiler.lisp:1.2 movitz/losp/muerte/los-closette-compiler.lisp:1.3 --- movitz/losp/muerte/los-closette-compiler.lisp:1.2 Mon Jan 19 06:23:46 2004 +++ movitz/losp/muerte/los-closette-compiler.lisp Wed Feb 4 10:25:33 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Thu Aug 29 13:15:11 2002 ;;;; -;;;; $Id: los-closette-compiler.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ +;;;; $Id: los-closette-compiler.lisp,v 1.3 2004/02/04 15:25:33 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -1578,10 +1578,10 @@ (multiple-value-bind (body declarations) (movitz::parse-docstring-declarations-and-body decl-doc-body 'cl:declare) (movitz::make-compiled-funobj name - (translate-program lambda-list :cl :muerte.cl) - (translate-program declarations :cl :muerte.cl) - (translate-program (cons 'muerte.cl:progn body) :cl :muerte.cl) - nil nil)))) + (translate-program lambda-list :cl :muerte.cl) + (translate-program declarations :cl :muerte.cl) + (translate-program (cons 'muerte.cl:progn body) :cl :muerte.cl) + nil nil nil))))
;;; ;;; Bootstrap