From 317daa41b6d2fa7cb9ffa14679205be830d130f0 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Wed, 21 Nov 1990 07:15:32 +0000
Subject: [PATCH] Moved check-mumble into the C package, so that multiple vms
 can get at it.

---
 code/exports.lisp | 19 ++++++++-----------
 1 file changed, 8 insertions(+), 11 deletions(-)

diff --git a/code/exports.lisp b/code/exports.lisp
index 1bfd8211d..f1221f8e2 100644
--- a/code/exports.lisp
+++ b/code/exports.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.56 1990/11/18 12:31:13 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.57 1990/11/21 07:15:32 wlott Exp $
 ;;;
 ;;; All the stuff necessary to export various symbols from various packages.
 ;;;
@@ -504,13 +504,6 @@
 	  float-sign-shift single-float-digits double-float-digits
 	  register-save-penalty symbol-raw-function-addr-slot
 	  symbol-setf-function-slot structure-header-type
-	  sxhash-simple-string sxhash-simple-substring check-cons
-	  check-symbol check-fixnum check-signed-byte-32
-	  check-unsigned-byte-32 check-function-or-symbol check-function
-	  code-constant-set allocate-code-object
-	  code-instructions compute-function
-
-	  get-vector-subtype set-vector-subtype
 	  ))
 
 (in-package "LISP")
@@ -641,6 +634,13 @@
 	  xep-allocate-frame
 
 	  catch-block
+
+	  sxhash-simple-string sxhash-simple-substring check-cons
+	  check-symbol check-fixnum check-signed-byte-32
+	  check-unsigned-byte-32 check-function-or-symbol check-function
+	  code-constant-set allocate-code-object
+	  code-instructions compute-function
+	  get-vector-subtype set-vector-subtype
 	  ))
 
 (in-package "LISP")
@@ -680,9 +680,6 @@
 	  string=*
 	  string/=*
 	  %sp-string-compare
-	  make-fixnum
-	  make-other-immediate-type
-	  halt
 	  )
 	"C")
 
-- 
GitLab