--- puri-1.3.1.3/src.lisp	2005-11-07 18:39:17.000000000 +0100
+++ puri-1.3.1.3-sbcl/src.lisp	2006-01-09 02:49:01.000000000 +0100
@@ -87,15 +87,13 @@
 (defun shrink-vector (str size)
   #+allegro
   (excl::.primcall 'sys::shrink-svector str size)
-  #+sbcl
-  (sb-kernel:shrink-vector str size)
   #+cmu
   (lisp::shrink-vector str size)
   #+lispworks
   (system::shrink-vector$vector str size)
   #+scl
   (common-lisp::shrink-vector str size)
-  #-(or allegro cmu lispworks sbcl scl)
+  #-(or allegro cmu lispworks scl)
   (setq str (subseq str 0 size))
   str)