Update of /cvsroot/sbcl/sbcl/src/compiler
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19959/src/compiler
Modified Files:
ir1tran.lisp
Log Message:
0.9.12.4:
tweaked whitespace in compiler while hunting unsuccessfully
for a quick fix for bug 401
logged bug 401
Index: ir1tran.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/ir1tran.lisp,v
retrieving revision 1.141
retrieving revision 1.142
diff -u -d -r1.141 -r1.142
--- ir1tran.lisp 14 Apr 2006 08:18:20 -0000 1.141
+++ ir1tran.lisp 28 Apr 2006 13:08:50 -0000 1.142
@@ -470,7 +470,8 @@
,@body
(return-from ,skip nil)))))
(ir1-convert ,start ,next ,result
- (make-compiler-error-form ,condition ,form)))))))
+ (make-compiler-error-form ,condition
+ ,form)))))))
;; Translate FORM into IR1. The code is inserted as the NEXT of the
;; CTRAN START. RESULT is the LVAR which receives the value of the
@@ -516,8 +517,9 @@
(aver (and (consp lexical-def)
(eq (car lexical-def) 'macro)))
(ir1-convert start next result
- (careful-expand-macro (cdr lexical-def)
- form))))))
+ (careful-expand-macro
+ (cdr lexical-def)
+ form))))))
((or (atom opname) (not (eq (car opname) 'lambda)))
(compiler-error "illegal function call"))
(t
|