Skip to content
Browse files

nada

  • Loading branch information...
1 parent ddceb59 commit c1d775360cd4f40c584f59646ca485a1c57809cd @kennytilton committed Aug 23, 2010
Showing with 0 additions and 31 deletions.
  1. +0 −1 datetime.lisp
  2. +0 −30 split-sequence.lisp
View
1 datetime.lisp
@@ -102,7 +102,6 @@ See the Lisp Lesser GNU Public License for more details.
(if (= 12 hours) hours (mod hours 12)) ; JP 010911 since (mod 12 12) = 0, treat 12 as a special case.
minutes (if (>= hours 12) "PM" "AM"))))
-
(defun mdyy-yymd (d)
(assert (eql 8 (length d)))
(conc$ (right$ d 4) (left$ d 4)))
View
30 split-sequence.lisp
@@ -63,16 +63,7 @@
(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.
-If :remove-empty-subseqs is NIL, empty subsequences will be included
-in the result; otherwise they will be discarded. All other keywords
-work analogously to those for CL:SUBSTITUTE. In particular, the
-behaviour of :from-end is possibly different from other versions of
-this function; :from-end values of NIL and T are equivalent unless
-:count is supplied. The second return value is an index suitable as an
-argument to CL:SUBSEQ into the sequence indicating where processing
-stopped."
(let ((len (length seq))
(other-keys (nconc (when test-supplied
(list :test test))
@@ -117,17 +108,7 @@ stopped."
finally (return (values subseqs right))))))
(defun split-sequence-if (predicate seq &key (count nil) (remove-empty-subseqs nil) (from-end nil) (start 0) (end nil) (key nil key-supplied))
- "Return a list of subsequences in seq delimited by items satisfying
-predicate.
-If :remove-empty-subseqs is NIL, empty subsequences will be included
-in the result; otherwise they will be discarded. All other keywords
-work analogously to those for CL:SUBSTITUTE-IF. In particular, the
-behaviour of :from-end is possibly different from other versions of
-this function; :from-end values of NIL and T are equivalent unless
-:count is supplied. The second return value is an index suitable as an
-argument to CL:SUBSEQ into the sequence indicating where processing
-stopped."
(let ((len (length seq))
(other-keys (when key-supplied
(list :key key))))
@@ -168,17 +149,6 @@ stopped."
finally (return (values subseqs right))))))
(defun split-sequence-if-not (predicate seq &key (count nil) (remove-empty-subseqs nil) (from-end nil) (start 0) (end nil) (key nil key-supplied))
- "Return a list of subsequences in seq delimited by items satisfying
-(CL:COMPLEMENT predicate).
-
-If :remove-empty-subseqs is NIL, empty subsequences will be included
-in the result; otherwise they will be discarded. All other keywords
-work analogously to those for CL:SUBSTITUTE-IF-NOT. In particular,
-the behaviour of :from-end is possibly different from other versions
-of this function; :from-end values of NIL and T are equivalent unless
-:count is supplied. The second return value is an index suitable as an
-argument to CL:SUBSEQ into the sequence indicating where processing
-stopped." ; Emacs syntax highlighting is broken, and this helps: "
(let ((len (length seq))
(other-keys (when key-supplied
(list :key key))))

0 comments on commit c1d7753

Please sign in to comment.
Something went wrong with that request. Please try again.