OSCL/PURI
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

r5353: *** empty log message ***

Browse Source
This commit is contained in:
Kevin M. Rosenberg
2003-07-20 21:03:54 +00:00
parent c4f89b3f9c
commit bfb444f645
1 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src.lisp
View File

@ -22,7 +22,7 @@
;; Original version from ACL 6.1: ;; Original version from ACL 6.1:
;; uri.cl,v 2.3.6.4.2.1 2001/08/09 17:42:39 layer ;; 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 (defpackage #:puri
(:use #:cl) (:use #:cl)
@ -92,10 +92,11 @@
(lisp::shrink-vector str size) (lisp::shrink-vector str size)
#+lispworks #+lispworks
(system::shrink-vector$vector str size) (system::shrink-vector$vector str size)
#+(or allegro cmu sbcl lispworks) #+scl
str (common-lisp::shrink-vector str size)
#-(or allegro cmu sbcl lispworks) #-(or allegro cmu lispworks sbcl scl)
(subseq str 0 size)) (setq str (subseq str 0 size))
str)
;; KMR: Added new condition to handle cross-implementation variances ;; KMR: Added new condition to handle cross-implementation variances