/[cmucl]/src/tools/hemcom.lisp
ViewVC logotype

Diff of /src/tools/hemcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.3 by ram, Fri Jul 13 19:26:21 1990 UTC revision 1.1.1.4 by ram, Fri Jul 20 16:04:51 1990 UTC
# Line 24  Line 24 
24  (in-package "HEMLOCK-INTERNALS"  (in-package "HEMLOCK-INTERNALS"
25              :nicknames '("HI")              :nicknames '("HI")
26              :use '("LISP" "EXTENSIONS" "SYSTEM"))              :use '("LISP" "EXTENSIONS" "SYSTEM"))
27    
28  ;;;  ;;;
29  (in-package "HEMLOCK"  (in-package "HEMLOCK"
30              :nicknames '("ED")              :nicknames '("ED")
# Line 33  Line 34 
34  (export '(%sp-byte-blt %sp-find-character %sp-find-character-with-attribute  (export '(%sp-byte-blt %sp-find-character %sp-find-character-with-attribute
35                         %sp-reverse-find-character-with-attribute))                         %sp-reverse-find-character-with-attribute))
36    
37    
38  (in-package "C")  (in-package "C")
39  (export 'compile-from-stream)  (export 'compile-from-stream)
40    
41    ;;; Hack...
42    
43    (dolist (x (apropos-list "key-event" "HI"))
44      (unintern x "HI"))
45    
46  (in-package "USER")  (in-package "USER")
47    
48  (pushnew :command-bits *features*)  (pushnew :command-bits *features*)
# Line 45  Line 52 
52    
53  (comf "code:globals" :always-once t)  (comf "code:globals" :always-once t)
54  (comf "code:struct" :always-once t)  (comf "code:struct" :always-once t)
55    (comf "hem:key-event" :load t)
56  (comf "hem:struct" :always-once t)  (comf "hem:struct" :always-once t)
57  (comf "hem:struct-ed" :always-once t)  (comf "hem:struct-ed" :always-once t)
58  (comf "hem:rompsite" :always-once t)  (comf "hem:rompsite" :always-once t)
59  (comf "hem:charmacs" :always-once t)  (comf "hem:charmacs" :always-once t)
 (comf "hem:key-event" :load t)  
60  ;;;  ;;;
61  ;;; This is necessary since all the #k uses in Hemlock will expand into  ;;; This is necessary since all the #k uses in Hemlock will expand into
62  ;;; EXT:MAKE-KEY-EVENT calls with keysyms and bits from the compiling Lisp, not  ;;; EXT:MAKE-KEY-EVENT calls with keysyms and bits from the compiling Lisp, not
# Line 60  Line 67 
67  ;;;  ;;;
68  (ext::re-initialize-key-events)  (ext::re-initialize-key-events)
69  (comf "hem:keysym-defs" :load t)  (comf "hem:keysym-defs" :load t)
70  (comf "hem:input.lisp")  (comf "hem:input")
71  (comf "hem:macros" :always-once t)  (comf "hem:macros" :always-once t)
72  (comf "hem:line" :always-once t)  (comf "hem:line" :always-once t)
73  (comf "hem:ring")  (comf "hem:ring")

Legend:
Removed from v.1.1.1.3  
changed lines
  Added in v.1.1.1.4

  ViewVC Help
Powered by ViewVC 1.1.5