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