Commit 9886b36d authored by Gary King's avatar Gary King
Browse files

added null implementation for non-sbcl, non-ccl

parent 1c44231f
Loading
Loading
Loading
Loading
+4 −0
Original line number Diff line number Diff line
@@ -99,5 +99,9 @@
								      :value (sb-di:debug-var-value v f)))))
						(ignore-errors (sb-di::debug-fun-debug-vars (sb-di:frame-debug-fun f)))))))))

#-(or ccl sbcl)
(defun impl-map-backtrace (func)
  (funcall func (format nil "unable to map backtrace for ~a"
			(lisp-implementation-type))))