[Bese-devel] a trace-cc "thinko" fix (I hope)

[Aleksandar Bakic]

diff -rN -u old-arnesi_dev/src/call-cc/apply.lisp
new-arnesi_dev/src/call-cc/apply.lisp
--- old-arnesi_dev/src/call-cc/apply.lisp       2005-11-10 04:00:44.000000000
+0100
+++ new-arnesi_dev/src/call-cc/apply.lisp       2005-11-10 04:06:39.000000000
+0100
@@ -281,7 +281,7 @@
 (defmethod apply-lambda/cc ((operator function) effective-arguments dyn-env k)
   "Method used when we're applying a regular, non cc, function object."
   (declare (ignore dyn-env))
-  (trace-statement "Applying function ~S to ~S" (source (code (first
operator)))  effective-arguments)
+  (trace-statement "Applying function ~S to ~S" (source (code operator)) 
effective-arguments)
   (apply #'kontinue k (multiple-value-list (apply operator
effective-arguments))))

 ;;;; Small helper function



		
__________________________________ 
Yahoo! FareChase: Search multiple travel sites in one click.
http://farechase.yahoo.com