...
 
Commits (2)
......@@ -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))
......@@ -48,17 +48,6 @@ CMUCL's EXT:ONCE-ONLY has a different interface."
#| ;; not very useful
(def*macro define-enclosing-macro (name args before after &key unprotected)
`(defmacro ,name (,@args &body body)
`(progn
,,before
(,,(if unprotected ''prog1 ''unwind-protect)
,@body
,,after))))
|#
;; Simple modify-macro's
(defun xfuncall (x f &rest args) (apply f x args))
(exporting-definitions
......
......@@ -2,15 +2,13 @@
#+xcvb (module nil)
(in-package #:cl-user)
#|;; After a mismatch warning, regenerate with
(write (fare-utils:make-defpackage-form :fare-utils :gensym) :pretty t :case :downcase)
(terpri)
|#
(defpackage #:fare-utils
(:use #:common-lisp #:asdf/driver)
(uiop:define-package #:fare-utils
(:use #:common-lisp #:uiop)
#+genera (:import-from #:scl #:boolean)
;; #+clisp (:shadow :with-gensyms)
(:export
......@@ -37,7 +35,7 @@
#:define*-condition #:define*-exporter
#:define*-method-combination #:define*-modify-macro
#:define*-setf-expander #:define*-symbol-macro
#:define-abbrevs #:define-enclosing-macro #:define-exporter
#:define-abbrevs #:define-exporter
#:define-magic-special-variable #:define-post-modify-macro
#:define-values-modify-macro
#:define-values-post-modify-macro #:defmsv #:defsubst
......@@ -109,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
......