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

Move endpush macro earlier in files

parent 4160b92f
......@@ -112,10 +112,6 @@
:function #'ql-dist:provided-releases
: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
&key dist-name function (filter 'identity) evals pre-file)
(unless (probe-file file)
......
......@@ -68,6 +68,10 @@
(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)
(log-sbcl system
: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