Commit e5446f6c authored by Antoine Martin's avatar Antoine Martin
Browse files

Move endpush macro earlier in files

parent 4160b92f
...@@ -112,10 +112,6 @@ ...@@ -112,10 +112,6 @@
:function #'ql-dist:provided-releases :function #'ql-dist:provided-releases
:filter filter)) :filter filter))
(defmacro endpush (object place)
"Like push, but at the end."
`(setf ,place (nconc ,place (list ,object))))
(defun map-objects-thread (file mutex waitqueue (defun map-objects-thread (file mutex waitqueue
&key dist-name function (filter 'identity) evals pre-file) &key dist-name function (filter 'identity) evals pre-file)
(unless (probe-file file) (unless (probe-file file)
......
...@@ -68,6 +68,10 @@ ...@@ -68,6 +68,10 @@
(defparameter *other-systems* '("asdf" "quickref")) (defparameter *other-systems* '("asdf" "quickref"))
(defmacro endpush (object place)
"Like push, but at the end."
`(setf ,place (nconc ,place (list ,object))))
(defun map-system (system) (defun map-system (system)
(log-sbcl system (log-sbcl system
:file (merge-pathnames "map-declt.lisp" :file (merge-pathnames "map-declt.lisp"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment