/[cmucl]/src/code/globals.lisp
ViewVC logotype

Diff of /src/code/globals.lisp

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

revision 1.3 by ram, Sat May 12 20:09:57 1990 UTC revision 1.4 by ram, Fri Jun 15 22:55:36 1990 UTC
# Line 19  Line 19 
19    
20  (proclaim '(special *keyword-package* *lisp-package* *package* *query-io*  (proclaim '(special *keyword-package* *lisp-package* *package* *query-io*
21                      *terminal-io* *error-output* *trace-output* *debug-io*                      *terminal-io* *error-output* *trace-output* *debug-io*
22                      *standard-input* *standard-output* *file-input-handlers*                      *standard-input* *standard-output* *hemlock-version*
23                      *hemlock-version* *evalhook* *applyhook*                      *evalhook* *applyhook* *task-self* *command-line-switches*
                     *task-self* *command-line-switches*  
24                      *command-switch-demons* ext::temporary-foreign-files                      *command-switch-demons* ext::temporary-foreign-files
25                      *display-event-handlers* original-lisp-environment                      *display-event-handlers* original-lisp-environment
26                      *environment-list*                      *environment-list* *read-default-float-format*
27                      *read-default-float-format* *read-suppress* *readtable*                      *read-suppress* *readtable* *print-base* *print-radix*
28                      *print-base* *print-radix* *print-length* *print-level*                      *print-length* *print-level* *print-pretty* *print-escape*
29                      *print-pretty* *print-escape* *print-case* *print-circle*                      *print-case* *print-circle* *print-gensym* *print-array*
                     *print-gensym* *print-array*  
30                      defmacro-error-string defsetf-error-string                      defmacro-error-string defsetf-error-string
31                      std-lisp-readtable                      std-lisp-readtable hi::*in-the-editor*
32                      hi::*in-the-editor* debug::*in-the-debugger*                      debug::*in-the-debugger* mach::*free-trap-arg-blocks*
33                      mach::*free-trap-arg-blocks* conditions::*handler-clusters*                      conditions::*handler-clusters*
34                      conditions::*restart-clusters*                      conditions::*restart-clusters* alloctable-address
35                      alloctable-address ext::*c-type-names* *gc-inhibit*                      ext::*c-type-names* *gc-inhibit* *need-to-collect-garbage*
                     *need-to-collect-garbage*  
36                      defmacro-error-string deftype-error-string                      defmacro-error-string deftype-error-string
37                      defsetf-error-string %sp-interrupts-inhibited                      defsetf-error-string %sp-interrupts-inhibited
38                      *software-interrupt-vector* *load-verbose*                      *software-interrupt-vector* *load-verbose*
39                      *load-print-stuff* *in-compilation-unit*                      *load-print-stuff* *in-compilation-unit*
40                      *aborted-compilation-units*                      *aborted-compilation-units* char-name-alist
41                      char-name-alist *default-pathname-defaults*                      *default-pathname-defaults* *beep-function*
42                      *beep-function* *gc-notify-before* *gc-notify-after*                      *gc-notify-before* *gc-notify-after*
43    
44                      ;; hack to get these args to with-trap-arg-block to work in                      ;; hack to get these args to with-trap-arg-block to work in
45                      ;; the bootstrapping env, since the var must be known to be                      ;; the bootstrapping env, since the var must be known to be

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.5