From bfb444f6454719a1f312b17a45eeb7e38f94767a Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sun, 20 Jul 2003 21:03:54 +0000 Subject: [PATCH] r5353: *** empty log message *** --- src.lisp | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/src.lisp b/src.lisp index eaf599a..ff4cd44 100644 --- a/src.lisp +++ b/src.lisp @@ -22,7 +22,7 @@ ;; Original version from ACL 6.1: ;; uri.cl,v 2.3.6.4.2.1 2001/08/09 17:42:39 layer ;; -;; $Id: src.lisp,v 1.9 2003/07/20 18:51:48 kevin Exp $ +;; $Id: src.lisp,v 1.10 2003/07/20 21:03:54 kevin Exp $ (defpackage #:puri (:use #:cl) @@ -92,10 +92,11 @@ (lisp::shrink-vector str size) #+lispworks (system::shrink-vector$vector str size) - #+(or allegro cmu sbcl lispworks) - str - #-(or allegro cmu sbcl lispworks) - (subseq str 0 size)) + #+scl + (common-lisp::shrink-vector str size) + #-(or allegro cmu lispworks sbcl scl) + (setq str (subseq str 0 size)) + str) ;; KMR: Added new condition to handle cross-implementation variances -- 1.7.10.4