nada

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)))

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))))