cl-split-sequence (20050802-3) split-sequence.lisp

--- cl-split-sequence-20050802.orig/split-sequence.lisp
+++ cl-split-sequence-20050802/split-sequence.lisp
@@ -50,13 +50,14 @@
 ;;; * (split-sequence #\; ";oo;bar;ba;" :start 1 :end 9)
 ;;; -> ("oo" "bar" "b"), 9
 
-(defpackage "SPLIT-SEQUENCE"
-  (:use "CL")
-  (:nicknames "PARTITION")
-  (:export "SPLIT-SEQUENCE" "SPLIT-SEQUENCE-IF" "SPLIT-SEQUENCE-IF-NOT"
-	   "PARTITION" "PARTITION-IF" "PARTITION-IF-NOT"))
+(defpackage #:split-sequence
+  (:use #:cl)
+  (:nicknames :partition)
+  (:export #:split-sequence #:split-sequence-if #:split-sequence-if-not
+	   #:partition #:partition-if #:partition-if-not))
+
+(in-package #:split-sequence)
 
-(in-package "SPLIT-SEQUENCE")
 
 (defun split-sequence (delimiter seq &key (count nil) (remove-empty-subseqs nil) (from-end nil) (start 0) (end nil) (test nil test-supplied) (test-not nil test-not-supplied) (key nil key-supplied))
   "Return a list of subsequences in seq delimited by delimiter.