From 92172dc619bcf1f6a1c9154e5c37d8ea3eb395ec Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 23 Oct 1990 02:04:37 +0000 Subject: [PATCH] Nuked defvar of compiler-version, 'cause it's in the compiler now. Nuked defparameter %fasl-code-format, 'cause it's no longer needed. (The loader used vm:target-fasl-file-implementation and -version directly now.) --- code/lispinit.lisp | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/code/lispinit.lisp b/code/lispinit.lisp index 591e601a1..6103dc06c 100644 --- a/code/lispinit.lisp +++ b/code/lispinit.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.14 1990/10/22 02:23:36 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.15 1990/10/23 02:04:37 wlott Exp $ ;;; ;;; Initialization stuff for CMU Common Lisp, plus some other random functions ;;; that we don't have any better place for. @@ -52,14 +52,12 @@ ;;; Random information: -(defvar compiler-version "???") (defvar *lisp-implementation-version* "4.0(?)") (defvar *in-the-compiler* nil "Bound to T while running code inside the compiler. Macros may test this to see where they are being expanded.") -(defparameter %fasl-code-format #.vm:target-fasl-code-format) ;;; Must be initialized in %INITIAL-FUNCTION before the DEFVAR runs... (proclaim '(special *gc-inhibit* *already-maybe-gcing* -- GitLab