Commit 1d9bda2c authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

sorted: a pure variant of sort.

parent 99294f95

base/lists.lisp

+3 −0
Changes for base/lists.lisp: 3 added lines, 0 removed lines.
Original line number Diff line number Diff line
@@ -247,3 +247,6 @@ May alter the cons cells that constitute the spine of the alist" 
    :else

    :collect e :into no

    :finally (return (values yes no))))



(defun sorted (sequence predicate &rest keys &key &allow-other-keys)

  (apply 'sort (copy-seq sequence) predicate keys))

package.lisp

+1 −0
Changes for package.lisp: 1 added line, 0 removed lines.
Original line number Diff line number Diff line
@@ -107,6 +107,7 @@ 
   #:portable-namestring-p

   ;;#:ensure-absolute-pathname ;; use ASDF:ENSURE-PATHNAME-ABSOLUTE

   #:portable-namestring-prefix<=

   #:sorted

   ;;#:ensure-pathname-is-directory

   #:unwilden

   #:append1 #:append1f #:funcallf ;; #:appendf #:nconcf