Remove unused function and variable

src/cmp/cmpdefs.lsp

@@ -409,7 +409,6 @@ lines are inserted, but the order is preserved")
 (defvar *not-compile-time* nil)
 
 (defvar *objects* nil)			; holds { ( object text vv-index ) }*
-(defvar *keywords* nil)			; holds { ( key-list text vv-index ) }*
 (defvar *load-time-values* nil)		; holds { ( vv-index form ) }*,
 ;;;  where each vv-index should be given an object before
 ;;;  defining the current function during loading process.

src/cmp/cmpenv.lsp

@@ -25,7 +25,6 @@
   (setq *next-cfun* 0)
   (setq *last-label* 0)
   (setq *objects* nil)
-  (setq *keywords* nil)
   (setq *local-funs* nil)
   (setq *global-var-objects* nil)
   (setq *global-vars* nil)

src/cmp/cmpwt.lsp

@@ -159,16 +159,6 @@
 	  *next-vv* -1)
     output))
 
-(defun wt-data (expr stream)
-  (wt-filtered-data
-   (typecase expr
-     (FUNCTION
-      (prin1-to-string (sys:compiled-function-name expr)))
-     (PACKAGE
-      (format nil "~%#.(find-package ~S)" (package-name expr)))
-     (t (prin1-to-string expr)))
-   stream))
-
 (defun wt-data-begin (stream)
   (setq *wt-string-size* 0)
   (setq *wt-data-column* 80)