Commit c18b9647 authored by Gary King's avatar Gary King
Browse files

clozure common lisp feature

darcs-hash:20080607234028-3cc5d-07052c87db8e58350029994adefdcc6d89ee22e6.gz
parent 7c977dfa
Loading
Loading
Loading
Loading
+1 −1
Original line number Diff line number Diff line
@@ -52,7 +52,7 @@ string. Otherwise, returns nil.
	 (when close?
	   (close stream)))))

#+mcl
#+(or mcl ccl)
(defun print-backtrace-to-stream (stream)
  (let ((*debug-io* stream))
    (ccl:print-call-history :detailed-p nil)))