Changeset 861

Timestamp:

Aug 30, 2004, 9:25:06 PM (16 years ago)

Author:

gb

Message:

Remove some FRED-isms.

File:

• trunk/ccl/level-1/l1-init.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-init.lisp

@@ -185 +185 @@
 (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)