Index: /trunk/ccl/level-1/l1-init.lisp
===================================================================
--- /trunk/ccl/level-1/l1-init.lisp	(revision 860)
+++ /trunk/ccl/level-1/l1-init.lisp	(revision 861)
@@ -185,12 +185,4 @@
 (defvar *eval-macro-displacement* nil)
 
-(defvar *cursorhook* nil)
-;(defvar *scrap-ok* t)
-(defvar *scrap-count* -1)
-(defvar *current-view* nil)
-(defvar *current-font-view* nil)
-
-(defglobal *selected-window* nil)
-(defglobal *modal-dialog-on-top* nil)
 
 (defvar *lisp-system-pointer-functions* nil)