X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Fcompiler%2Fdebug.lisp;h=15d3008175ac31af3bf0139c276d51d1972154cf;hb=2980dfadc866eca324dec15b64b5793aee0c07ee;hp=9c37ee19b56b88da64376ad8e893898db39e0eca;hpb=b002696f4d26c41ea09fc9af296a2d1f10b2ebb6;p=sbcl.git

diff --git a/src/compiler/debug.lisp b/src/compiler/debug.lisp
index 9c37ee1..15d3008 100644
--- a/src/compiler/debug.lisp
+++ b/src/compiler/debug.lisp
@@ -931,11 +931,6 @@
     (symbol (block-or-lose (gethash thing *free-funs*)))))
 
 ;;; Print cN.
-(defun print-continuation (cont)
-  (declare (type continuation cont))
-  (format t " c~D" (cont-num cont))
-  (values))
-
 (defun print-ctran (cont)
   (declare (type ctran cont))
   (format t "c~D " (cont-num cont))