From c6c1f99710bd4b327bd6513558e8351a956412b0 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 22 Jun 1990 18:10:26 +0000
Subject: [PATCH] Added %sxhash-simple-{sub,}string to kernel exports. Added
 vector-sap to system exports.

---
 code/exports.lisp | 49 +++++++++++++++++++++++------------------------
 1 file changed, 24 insertions(+), 25 deletions(-)

diff --git a/code/exports.lisp b/code/exports.lisp
index 1dd5033d5..b66873caa 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.33 1990/06/16 15:56:30 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.34 1990/06/22 18:10:26 wlott Exp $
 ;;;
 ;;; All the stuff necessary to export various symbols from various packages.
 ;;;
@@ -267,7 +267,8 @@
 
 (export '(%array-fill-pointer %array-available-elements %array-data-vector
 	  %array-displacement %array-displaced-p %array-dimension
-	  %check-bound %dpb %ldb %negate *empty-type* *eval-stack-top*
+	  %check-bound %dpb %ldb %negate %sxhash-simple-string
+	  %sxhash-simple-substring *empty-type* *eval-stack-top*
 	  *null-type* *universal-type* *unparse-function-type-simplify*
 	  *wild-type* 32bit-logical-not 32bit-logical-nor 32bit-logical-and
 	  32bit-logical-or 32bit-logical-xor always-subtypep args-type
@@ -282,20 +283,19 @@
 	  bit-index boole-code boolean byte-specifier callable char-int
 	  consed-sequence constant-type constant-type-p constant-type-type
 	  containing-integer-type copy-from-system-area copy-numeric-type
-	  copy-to-system-area
-	  csubtypep ctype ctype-of ctype-p ctypep data-vector-ref
-	  data-vector-set error-number-or-lose filename float-digits
-	  float-exponent float-format-max float-radix form function-type
-	  function-type-allowp function-type-keyp function-type-keywords
-	  function-type-optional function-type-p function-type-required
-	  function-type-rest function-type-returns function-type-wild-args
-	  hairy-type hairy-type-check-template hairy-type-specifier index
-	  internal-time irrational key-info key-info-name key-info-p
-	  key-info-type lexical-environment make-args-type
-	  make-function-type make-key-info make-member-type make-named-type
-	  make-numeric-type make-structure-type make-union-type
-	  make-values-type member-type member-type-members member-type-p
-	  merge-bits named-type named-type-name named-type-p
+	  copy-to-system-area csubtypep ctype ctype-of ctype-p ctypep
+	  data-vector-ref data-vector-set error-number-or-lose filename
+	  float-digits float-exponent float-format-max float-radix form
+	  function-type function-type-allowp function-type-keyp
+	  function-type-keywords function-type-optional function-type-p
+	  function-type-required function-type-rest function-type-returns
+	  function-type-wild-args hairy-type hairy-type-check-template
+	  hairy-type-specifier index internal-time irrational key-info
+	  key-info-name key-info-p key-info-type lexical-environment
+	  make-args-type make-function-type make-key-info make-member-type
+	  make-named-type make-numeric-type make-structure-type
+	  make-union-type make-values-type member-type member-type-members
+	  member-type-p merge-bits named-type named-type-name named-type-p
 	  native-byte-order negate never-subtypep numeric-contagion
 	  numeric-type numeric-type-class numeric-type-complexp
 	  numeric-type-format numeric-type-high numeric-type-low
@@ -313,12 +313,11 @@
 	  type-union type/= type= types-intersect unboxed-array union-type
 	  union-type-p union-type-types unknown-type unknown-type-p
 	  unknown-type-specifier values-specifier-type
-	  values-specifier-type-cache-clear values-subtypep
-	  values-type values-type-allowp values-type-intersect
-	  values-type-intersection values-type-keyp values-type-keywords
-	  values-type-optional values-type-p values-type-required
-	  values-type-rest values-type-union values-types
-	  values-types-intersect void))
+	  values-specifier-type-cache-clear values-subtypep values-type
+	  values-type-allowp values-type-intersect values-type-intersection
+	  values-type-keyp values-type-keywords values-type-optional
+	  values-type-p values-type-required values-type-rest
+	  values-type-union values-types values-types-intersect void))
 
 
 (in-package "EXTENSIONS")
@@ -431,9 +430,9 @@
 	  short-float-radix signed-sap-ref-16 signed-sap-ref-32
 	  signed-sap-ref-8 single-float-radix symbol-macro-let
 	  system-area-pointer system-area-pointer-p unproclaim unstructured
-	  wait-until-fd-usable with-enabled-interrupts with-fd-handler
-	  with-interrupts with-reply-port with-stack-alien without-gcing
-	  without-hemlock without-interrupts words))
+	  vector-sap wait-until-fd-usable with-enabled-interrupts
+	  with-fd-handler with-interrupts with-reply-port with-stack-alien
+	  without-gcing without-hemlock without-interrupts words))
 
 
 (in-package "USER")
-- 
GitLab