Commit 621bf190 authored by Gary King's avatar Gary King
Browse files

s/evaluate/execute/ ... sigh. I make this mistake about 30% of the time.

darcs-hash:20080607234109-3cc5d-adedaaf69bbccfcd901b0422981eef7137ba51d1.gz
parent be10d795
Loading
Loading
Loading
Loading
+1 −1
Original line number Diff line number Diff line
@@ -124,7 +124,7 @@ will print a backtrace for whatever the Lisp deems to be the
*current* error.
")

(eval-when (:compile-toplevel :load-toplevel :evaluate)
(eval-when (:compile-toplevel :load-toplevel :execute)
  (unless (fboundp 'print-backtrace-to-stream)
    (defun print-backtrace-to-stream (stream)
      (format stream "~&backtrace output unavailable.~%"))))