From fdc2e9063373713f2c5801abc8d38a67af35e83f Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Wed, 12 Aug 2009 18:31:30 +0000
Subject: [PATCH] Bootstrap to get rid of stream::surrogates and import
 lisp::surrogates.

---
 bootfiles/19f/boot-2009-07.lisp | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/bootfiles/19f/boot-2009-07.lisp b/bootfiles/19f/boot-2009-07.lisp
index f74d9091d..b388a3438 100644
--- a/bootfiles/19f/boot-2009-07.lisp
+++ b/bootfiles/19f/boot-2009-07.lisp
@@ -3,7 +3,7 @@
 
 (in-package "C")
 
-(without-package-locks
+(ext:without-package-locks
 
 ;; Just in case the compiling lisp doesn't known about lisp::shrink-vector.
 (defknown lisp::shrink-vector (vector fixnum) vector
@@ -29,3 +29,11 @@
 	(make-union-type results)
 	(first results))))
 )
+
+(in-package "STREAM")
+
+;; We want to use LISP::SURROGATES in the STREAM package.
+(ext:without-package-locks
+  (unintern 'stream::surrogates)
+  (import 'lisp::surrogates)
+  )
-- 
GitLab