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

Diff of /src/code/lispinit.lisp

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

revision 1.14 by wlott, Mon Oct 22 02:23:36 1990 UTC revision 1.15 by wlott, Tue Oct 23 02:04:37 1990 UTC
# Line 52  Line 52 
52    
53  ;;; Random information:  ;;; Random information:
54    
 (defvar compiler-version "???")  
55  (defvar *lisp-implementation-version* "4.0(?)")  (defvar *lisp-implementation-version* "4.0(?)")
56    
57  (defvar *in-the-compiler* nil  (defvar *in-the-compiler* nil
58    "Bound to T while running code inside the compiler.  Macros may test this to    "Bound to T while running code inside the compiler.  Macros may test this to
59    see where they are being expanded.")    see where they are being expanded.")
60    
 (defparameter %fasl-code-format #.vm:target-fasl-code-format)  
61    
62  ;;; Must be initialized in %INITIAL-FUNCTION before the DEFVAR runs...  ;;; Must be initialized in %INITIAL-FUNCTION before the DEFVAR runs...
63  (proclaim '(special *gc-inhibit* *already-maybe-gcing*  (proclaim '(special *gc-inhibit* *already-maybe-gcing*

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

  ViewVC Help
Powered by ViewVC 1.1.5