1. Phil Hargett
  2. HH-Parse

Commits

Phil Hargett  committed 5b9b239

Removed some tracing that is a bit noisy now, since we've solved our copy thread problems (yes, it could be bad to remove the tracing that actually solved a problem, while leaving all the other stuff intact. ;) )

  • Participants
  • Parent commits 4e3907d
  • Branches default

Comments (0)

Files changed (1)

File tracing.lisp

View file
   )
 
 (defmethod return-from-node :around (parser thread value)
-  (trace-parser "#~a: ~a (~a) returning ~s~%" 
+  (trace-parser "#~a: ~a returning ~s~%" 
 	  (id-of thread)
 	  (let* (
 		 (stack (stack-of thread))
 		 )
 	    (string-downcase (symbol-name (class-name (class-of caller) ) ) )
 	    )
-	  (let* (
-		 (stack (stack-of thread))
-		 (frame (first stack) )
-		 (caller (node-in frame))
-		 )
-	    caller
-	    )
 	  value
 	  ) 
   (call-next-method)